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I.         INTRODUCTION 
A.      BACKGROUND 

Modern  warfare,  as  well  as  modern  life,  requires  reliable  and  quick  responding 
systems.  To  fulfill  this  need,  autonomous  systems  capable  of  doing  risky  tasks  have 
been  a  goal  for  decades.  In  practice,  we  are  far  from  reaching  this  goal,  but  we  have 
been  slowly  substituting  machine  systems  for  human  operators  in  many  activities, 
which  has  freed  personnel  from  dangerous,  boring  and  repetitive  tasks. 

Image  recognition  and  localization  is  an  important  aspect  of  automation.  It  is 
a  complex  task  with  no  general  solution  and  has  been  used  lately  in  many  industrial 
and  military  applications.  Recognition  and  localization  are  intimately  related  since 
we  need  to  locate  an  object  before  being  able  to  identify  (recognize)  it.  In  other 
words,  we  can  not  identify  an  object  without  knowing  its  location,  but  the  reverse 
can  be  true. 

In  this  thesis,  wavelets  and  neural  networks  are  used  for  object  recognition. 
Features  of  objects  are  extracted  in  the  wavelet  domain  and  then  a  neural  network  is 
trained  to  recognize  objects  from  these  features. 

One  of  the  applications  of  the  object  recognition  techniques  is  localization 
and/or  identification  of  UXOs  (Unexploded  Ordnances) .  Detection  of  UXOs  either 
during  war  or  peace  time  is  extremely  dangerous.  An  autonomous  system  capable  of 
substituting  personnel  in  this  task  is  highly  desirable.  This  UXO  recognition  system 
can  be  applied  to  both  battlefield  strategic  missions  as  well  as  cleanup  of  old  battlefield 
sites.  Figure  1  shows  a  typical  UXO  object.  These  objects  are  complex  and  hence 
challenging  to  recognize.  The  concepts  presented  in  this  thesis  can  also  be  used  with 
other  kind  of  sensor  data  such  as  magnetometer  and  infrared  readings. 


Figure  1.  Typical  UXO. 


B.      THESIS  OUTLINE 

The  remaining  chapters  of  this  thesis  deal  with  our  subject  matter  in  the  fol- 
lowing way.  Chapter  II  gives  a  brief  introduction  to  Neural  Networks  (NN)  and  the 
back-propagation  learning  method  used  to  train  them.  In  Chapter  III,  we  discuss  a 
classification  system  based  on  segmentation  oriented  geometric  features  and  their  use 
in  a  NN  system  for  processing  generic  scenes.  This  chapter  is  to  serve  as  an  intro- 
duction to  Object  Recognition  and  to  illustrate  the  usefulness  of  neural  networks  in 
detecting  non-UXO  objects.  The  geometric  feature  approach  used  in  this  chapter  is 
based  on  the  feature  extraction  algorithm  in  reference  1.  Next,  in  Chapter  IV,  we 
discuss  our  UXO  recognition  system,  as  well  as  present  experimental  results.  This 
system  uses  a  wavelet  based  approach.  This  work  will  appear  in  reference  2  and 
is  an  extension  of  previous  work  described  in  reference  3.  It  capitalizes  upon  the 
multi-resolution  nature  of  the  wavelet  domain  to  extract  a  set  of  features  which  is 
compact  and  yet  sufficiently  describes  an  object.  Since  this  UXO  detection  system, 


or  a  derivation  of  it,  is  intended  to  be  integrated  on  Professor  Kanayama's  "Rotary" 
autonomous  robot,  we  present  modifications  to  the  robot's  motion  control  and  navi- 
gation systems  in  Chapter  V.  Specifically,  we  discuss  detection  of  edge  landmarks,  3D 
modeling  and  neutral  switching  [Ref.  4,  5,  6].  Figure  2  shows  a  picture  of  the  robot, 
also  known  by  its  nickname  "Shepard."  Finally,  Chapter  VI  concludes  this  work. 


Figure  2.  "Shepard" 


II.         NEURAL  NETWORKS 
A.      INTRODUCTION 

Generally  the  methods  for  pattern  recognition  may  be  classified  as  follows: 

•  Statistical  pattern  recognition  techniques. 

•  Structural  pattern  recognition  techniques. 

•  Hybrid  techniques  -  Neural  networks. 

Neural  networks  approach  has  attracted  considerable  interest  in  recent  years  [Ref. 
7].  It  has  been  proved  that  a  neural  network  can  represent  any  continuous  function 
with  a  defined  degree  of  precision  [Ref.  8].  As  such,  NN  are  ideal  vehicles  for  signal 
representation  and  hence  recognition. 

Initially  inspired  by  biological  nervous  system,  a  neural  network  consists  of 
many  interconnected  neurons  or  processing  elements  (PEs)  [Ref.  7],  with  similar 
characteristics,  such  as  inputs,  synaptic  strengths,  activations,  outputs  and  biases. 
Each  PE  receives  inputs  from  the  preceding  PEs  and  generates  a  scalar  output.  The 
first  layer  is  called  the  input  layer,  the  final  layer  is  called  the  output  layer  and  the 
middle  layers  are  called  hidden  layers. 

Figure  3  shows  a  basic  model  of  a  neuron  [Ref.  9],  where  the  non-linear 
function  g,  most  commonly  used,  is  the  sigmoid: 

9(x)  =  7-^:   ,  (HI) 

1  +  e  I 

and  the  output  is: 

n 

output  =  g(y^  w {input j  +  wsBiasj.  (II.  2) 

The  "bias  term"  is  used  to  fine  tune  the  output  of  the  node.  In  our  research 
we  do  not  use  it,  since  the  back-propagation  training  algorithm  (given  in  the  next 
section),  finds  the  right  weights  for  each  node  without  the  need  of  the  bias  term  [Ref. 
10]. 


Figure  4  presents  a  three-layer  NN,  where  all  nodes  (represented  by  the  circles), 
except  the  input  nodes,  have  the  same  characteristics  as  the  dashed  circle  in  Figure  3. 
Note  that  the  input  nodes  are  just  a  pass-through  for  the  input  signal.  This  is  the 
reason  why,  some  authors  do  not  count  them  when  defining  the  number  of  layers  in 
a  NN.  However,  in  this  thesis,  it  will  be  to  counted  as  a  layer.  In  Figure  4,  Ii  is 
the  input  for  input-node  i,  Hl  is  the  output  from  hidden-node  i,  Oi  is  the  output 
from  output-node  i  (desired),  whj  is  the  weight  for  the  connection  between  input- 
node  i  and  hidden-node  j  and  lastly,  whij  is  the  weight  for  the  connection  between 
hidden-node  i  and  output-node  j. 

For  a  generic  three-layer  NN  we  have 

71/ 

Hi    =    gi^wiijlj)      l<i<nH,  (11.3) 

Oz    =    g{j^wHlJH3)      l<i<nQ.  (II.4) 

i=i 

Here  nj  is  the  number  of  input  nodes,  n#  is  the  number  of  hidden  nodes  and  no  is 

the  number  of  output  nodes.  In  Figure  4,  we  have  their  values  respectively  equal  to 

3,  3  and  2. 

B.      TRAINING:  BACK-PROPAGATION  LEARNING  AL- 
GORITHM 

Training  a  NN  refers  to  presenting  training  data  (consisting  of  input  and  cor- 
responding output  values)  to  the  system  so  that  it  learns  the  best  set  of  weights  to 
produce,  given  the  input  data,  the  correct  output.  Once  trained,  a  NN  produces  an 
output  performing  only  a  series  of  simple  calculations  as  shown  in  Equation  II. 2.  This 
feature  makes  NNs  attractive.  Back-propagation  is  a  learning  method  developed  in 
the  mid-1980s  by  David  Rumelhart  [Ref.  11],  and  is  based  on  finding  the  outputs  at 
the  last  or  output  layer  and  calculating  the  errors  or  differences  between  the  desired 
and  the  current  outputs. 
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Figure  3.  Basic  Neuron  (Node  or  PE)  Model. 


Figure  4.  Three-Layer  Neural  Network. 


These  errors  are  then  fed  into  the  neural  network  in  reverse  order.  This  "back- 
ward" feeding  of  information  from  the  output  PEs  to  the  input  PEs  is  where  back- 
propagation  gets  its  name  from.  Thus,  we  must  take  a  differential  of  the  output  and 
hence  of  g(x).  Because  of  the  simple  form  of  its  differential,  the  sigmoid  function  is 
commonly  used  as  g{x).  The  differential  when  g(x)  equals  to  the  sigmoid  is: 

ff'to  =  dj^L=  »(*)(!  -  »(*))■  (II-5) 

More  specifically,  what  we  do  is  make  a  change  in  the  weights  at  each  level 
as  a  function  of  the  error  and  then  (backward)  propagate  this  error  up  the  NN.  The 
weights  at  the  last  layer  are  adjusted  using  the  following  formula: 

AwHlJ    =    (3EojHh  (11.6) 

new  w Hij    =    wHij  +  AwHij,  (II. 7) 

where  (5  =  learning  rate  (0  <  (5  <  1)  and  Eoj  is  the  given  by, 

E0j  =  03  -  O;,  (II.8) 

where  O'j  is  the  calculated  output  at  the  output-node  j  and  Oj  is  the  desired  output. 
For  the  hidden  layer  we  need  to  calculate  the  error  at  this  layer  first.    This 
is  done,  by  calculating  the  "propagated  error"  from  the  output  to  the  hidden  nodes. 
The  error  for  the  hidden  node  i  is  given  by, 

no 

Em  =  (Y,wljE0j)g,(Hl).  (11.9) 

Having  computed  the  error  at  the  hidden  nodes,  the  updated  weights  of  the  input 
layer  are  given  by  the  following  equations: 

Awjij    =    pEHjIu  (11.10) 

new  wnj    =    whj  +  Awnj.  (11.11) 

This  process  is  done  repeatedly  until  we  have  a  small  enough  error  for  our 
output  nodes.  In  our  NN,  the  global  error  is  calculated  as 


GE=  V^-1V    LL  (n.12) 

nQ 


8 


In  our  studies,  j3  is  linearly  varied  between  0.1  and  0.0009.  This  variation  will 
yield  a  faster  convergence  than  a  fixed  S3.  [Ref.  9,  10,  12]  are  excellent  resources  for 
more  details  about  NN. 

We  implemented  a  Lisp  program,  listed  in  Appendix  A,  to  perform  the  training 
of  a  NN  using  back-propagation.  All  the  NNs  used  in  this  thesis  were  trained  with 
this  program. 

As  will  be  discussed  in  the  subsequent  chapters,  three-layer  NNs,  trained  with 
the  back-propagation  learning  algorithm,  are  used  in  our  UXO  detection  system. 
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III.         OBJECT  RECOGNITION  USING 
GEOMETRIC  FEATURES 

A.      INTRODUCTION 

A  computer  vision  system  [Ref.  1],  that  divides  an  image  into  regions  with 
homogeneous  characteristics  is  proposed  for  the  purpose  of  classification  and  object 
recognition.  This  process  is  referred  to  as  segmentation  and  extracts  segments  of  the 
scene  as  features.  The  idea  behind  this  technique  is  that  these  features  represent  the 
image  information  more  compactly.  The  process  of  feature  extraction  is  an  important 
one  in  computer  vision  and  is  addressed  in  Chapter  4  with  regards  to  UXO  detection. 
This  chapter  focuses  on  one  technique  for  feature  extraction  and  illustrates  that  the 
feature-based  object  recognition  system  can  be  used  for  recognition  of  generic  pictures. 

1.       Feature  Extraction  Algorithm 

To  divide  a  picture  into  regions  of  homogeneous  characteristics,  the  system  in 
[Ref.  1]  goes  through  the  following  steps: 

1.  Image  averaging  of  each  four-cell  square  to  compensate  dithering. 

2.  Color  gradient  thresholding. 

3.  Clumping  of  the  results  using  pixel  regions. 

4.  Compute  the  25  statistical  property,  listed  in  Table  I. 

•  Dimensions  (statistics  B-H  and  U)  are  measured  in  number  of  pixels. 

•  Brightness  (statistics  K-Q  and  T)  are  computed  with  a  0-255  gray  scale 
for  each  color. 

•  Skews  (statistics  I  and  J)  are  proportional  to  the  size  of  the  box. 

•  Diagonality  (statistics  V)  is  a  fraction  of  the  boundary  length. 

•  Curviness  (statistics  W)  is  in  radians. 

•  Correlations  (statistics  R  and  S)  runs  from  —1  to  1. 

•  Counts  (statistics  X  and  Y)  are  unadjusted. 

5.  Merge  single-cell  regions  into  their  neighboring  regions  in  a  best-first  approach. 
Regions  properties  were  updated  with  each  merge. 
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6.  A  final  merging  was  then  done  utilizing  a  weighted  sum  of  three  factors 
(average  color  difference  between  the  regions,  the  absolute  difference  in  the 
neighbor-brightness  variation  over  the  regions  and  the  weighted  decrease  in 
density  of  the  bounding  boxes)  to  rank  the  regions. 

In  Figure  6  we  can  see  an  example  of  the  output  from  the  feature  extraction 
program  [Ref.  1],  for  the  input  figure  shown  in  Figure  5. 
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CODE 

Explanation 

A 

region  number 

B 

area  in  pixels 

C 

circumference  in  pixels 

D 

number  of  picture-boundary  pixels 

E 

minimum  x-coordinate 

F 

minimum  y-coordinate 

G 

maximum  x-coordinate 

H 

maximum  y-coordinate 

I 

x-skew  of  center  of  mass  from  box  center 

J 

y-skew  of  center  of  mass  from  box  center 

K 

average  red  brightness 

L 

average  green  brightness 

M 

average  blue  brightness 

N 

standard  deviation  of  red  brightness 

0 

standard  deviation  of  green  brightness 

P 

standard  deviation  of  blue  brightness 

Q 

average  brightness  variation  between  adjacent  cells 

R 

correlation  of  brightness  with  increasing  x 

S 

correlation  of  brightness  with  increasing  y 

T 

average  strength  of  the  region  edge 

U 

smoothed-boundary  length 

V 

smoothed-boundary  diagonality 

W 

smoothed-boundary  curviness 

X 

smoothed-boundary  number  of  inflection  points 

Y 

smoothed-boundary  number  of  right  angles 

Z 

whether  boundary  is  opened  or  closed 

Table  I.  The  26  Basic  Region  Statistics  and  Their  Codes. 
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Figure  5.  Original  Picture. 
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Figure  6.  Output  from  the  Feature  Extraction  Program. 
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2.       Neural  Network 

The  features  extracted  from  the  system  in  [Ref.  1]  are  used  in  a  NN  developed 
in  Prolog  (Appendix  B),  for  recognition  of  segments  (part  of  objects)  in  visual  data. 
Again,  this  is  to  illustrate  the  potential  usefulness  of  such  a  system  for  application 
to  UXO  detection.  The  UXO  system  is  described  in  the  next  chapter.  At  first,  we 
used  18  classes  of  possible  objects,  due  to  the  difficulties  in  training,  this  number  was 
dropped  to  14  classes. 

From  the  26  elements  in  Table  I  15  features  were  calculated  using  only  20  of  the 
elements  (Table  II).  The  constant  dividends  observed  in  Table  II  were  experimentally 
measured  as  the  maximum  observed  values.  Consequently  the  neural  network  had  15 
input  nodes,  15  hidden  nodes  and  4  output  nodes.  Fifty  one  training  images  were 
presented  to  the  NN  system.  A  prolog  program  reads  the  shapes  from  a  file  and  gives 
the  inputs  to  the  neural  net.  A  lisp  implementation  of  back  propagation  was  run  and 
the  best  result  for  the  weights  gave  a  33%  of  success  rate  when  ran  over  the  same  set 
used  to  train  the  net. 

The  same  prolog  program,  with  the  right  weights,  gives  as  output  a  list  with 
as  many  terms  as  the  number  of  inputs.  Each  element  of  the  list  contains  the  input 
number  and  a  sequence  of  four  numbers  (0  and  1)  that  comprise  a  binary  representing 
the  class  of  the  input,  as  shown  in  Table  III. 

After  dividing  the  last  three  inputs  (size  dependent)  by  the  area  in  pixels,  the 
NN  was  able  to  be  trained  with  a  100%  of  success  rate  over  the  training  set. 

Using  the  resulting  weights,  we  were  able  to  put  the  excluded  classes  (18 
classes)  back  and  still  get  good  results  (100%  over  the  training  set).  The  final  classes 
used  are  listed  in  Table  IV. 

To  test  the  system,  we  extracted  features  from  Figure  7,  resulting  in  the  23 
regions  presented  in  Figure  8  and  listed  in  Appendix  C.  From  these  23  regions,  11  were 
used  to  train  the  NN.  Running  the  recognition  system  on  the  12  remaining  regions, 
it  was  able  to  identify  4  of  them  properly  (33%). 
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INPUT 

DEFINITION 

1 

15 

2 

£>+C 

3 

J 

4 

J 

5 

K+L+M 
2000 

6 

K 

£50 

7 

L 
650 

8 

M 
650 

9 

T 
500 

10 

AT+O+P 
50 

11 

U 
B 

12 

V 
B 

13 

W 
B 

14 

X 
B 

15 

Y 
B 

Table  II.  The  15  Input  Values  for  the  Neural  Network. 
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CLASS 

BINARY 

Undefined 

(0000) 

Hair 

(0001) 

Building 

(0010) 

Leg 

(0011) 

Concrete  floor 

(0100) 

Airplane 

(0101) 

Shadow 

(0110) 

Pole 

(oni) 

Sand 

(1000) 

Vegetation 

(1001) 

Pavement 

(1100) 

Cloud 

(1101) 

Sky 

(1110) 

Face 

(1111) 

Table  III.  The  14  Class  Types. 
B.      RESULTS 

To  correctly  identify  different  objects  is  a  difficult  problem.  One  problem  of  the 
vision  system  described  in  this  chapter  is  that  it  is  slow  because  the  segmentation  is 
a  time  consuming  task  [Ref.  1].  As  it  takes  a  long  time  to  run,  it  is  almost  impossible 
to  make  experimental  trials  to  find  the  best  threshold,  a  parameter  needed  by  the 
system,  for  each  picture. 

Normalizing  the  last  five  inputs  by  the  area  of  the  regions  (in  pixels)  improved 
the  results  by  a  factor  of  2.5.  This  basically  produced  a  kind  of  scale  invariance.  The 
NN  was  able  to  find  a  correlation  between  same  classes  of  different  sizes  and  converge 
to  a  reasonable  result. 

Before  those  five  inputs  were  normalized,  the  trained  NN  was  able  to  success- 
fully identify  only  33%  of  the  regions  (classes)  used  in  the  training  set.  However, 
using  the  normalization  described  above,  we  recognized  correctly  100%  of  the  train- 
ing set  and  33%  of  the  segments  in  a  image  not  present  in  the  training  set.  Even  with 
the  extreme  complexity  of  the  natural  scene,  we  are  able  to  obtain  useful  recognition 
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Figure  7.  Original  Picture. 
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Figure  8.  Output  from  the  Feature  Extraction  Program. 
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CLASS 

BINARY 

Undefined 

(10000) 

Hair 

(10001) 

Building 

(10010) 

Leg 

(10011) 

Concrete  floor 

(10100) 

Airplane 

(10101) 

Shadow 

(10110) 

Pole 

(10111) 

Sand 

(11000) 

Vegetation 

(11001) 

Hourse 

(11010) 

Body 

(11011) 

Pavement 

(11100) 

Cloud 

(11101) 

Sky 

(11110) 

Face 

(11111) 

Sky 

(oino) 

Face 

(01111) 

Table  IV.  The  18  Class  Types. 

results. 

This  suggests  along  with  the  vast  body  of  research  in  vision  that  image  object 
recognition  may  be  useful  in  UXO  detection.  In  the  next  chapter,  we  will  describe  our 
UXO  detection  system  that  utilizes  computer  vision  techniques  on  2D  photometric 
input  data. 
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IV.         OBJECT  RECOGNITION  USING 

WAVELETS 

A.      INTRODUCTION 

In  this  chapter  image  analysis  techniques  using  wavelets  are  examined  for  use 
in  the  recognition  of  Unexploded  Ordnances  (UXOs).  The  system  described  here 
capitalizes  upon  the  multi-dimensional  and  compact  nature  of  the  wavelet  domain  to 
perform  the  task  of  feature  extraction.  Subsequently,  Neural  Networks  are  used  with 
training  templates  for  recognition.  The  results  obtained  recommend  the  use  of  this 
system  on  a  mobile  platform  for  the  task  of  UXO  detection. 

The  application  of  UXO  detection  on  a  mobile  platform  allows  us  to  assume 
that  the  objects  presented  to  us  on  a  fixed  camera  platform  will  fall  in  a  small  range 
of  known  scale.  However,  the  objects  may  appear  in  any  aspect,  rotation  and  position 
in  the  scene. 

The  wavelet  domain  is  highly  suited  to  the  recognition  task  due  to  its  sparse 
yet  descriptive  qualities.  Some  of  our  previous  research  has  indicated  that  in  the  task 
of  localization,  an  optimal  level  of  decomposition  in  the  wavelet  space  can  be  chosen 
for  an  object  [Ref.  3].  Thus,  the  complexity  involved  in  recognition  can  be  reduced  by 
looking  in  this  level  of  the  multi-dimensional  wavelet  domain.  Note  that  at  this  level, 
many  of  the  key  features  are  retained  in  the  wavelet  domain.  The  feature  extrac- 
tion phase  starts  by  finding  "special  points  of  interest"  at  the  chosen  decomposition 
level  and  then  calculating  a  set  of  features  at  each  point  including  relative  position, 
wavelet  values,  first  and  second  moments.  These  interest  points  correspond  roughly 
to  areas  of  strong  edge-type  features.  It  is  shown  that  these  features  are  effective  and 
reliable  when  used  in  a  Neural  Network  system  for  recognition.  An  attribute  of  using 
these  "  points  of  interest"  is  that  the  information  extracted  for  each  point  represents 
relatively  local  information  about  the  object  and  when  taken  together  with  the  other 
points  gives  a  more  global  and  hopefully  distinctive  description  of  the  object  under 
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question. 

This  system  looks  at  using  such  local  point  features  rather  than  the  more 
global  features  of  segments  discussed  in  Chapter  3  because: 

•  It  is  faster  to  extract  these  feature. 

•  Exploitation  of  the  wavelet  domain,  suggests  the  use  of  edge  features  rather 
than  segments. 

•  Points  are  the  simplest  kind  of  features  we  can  extract  and  are  hence  a  good 
place  to  start  when  looking  at  the  application  of  a  feature  based  approach  to 
object  recognition. 

A  Neural  Network  is  trained  with  features  extracted  from  template  training 
data.  This  data  consists  of  samples  for  each  UXO  object  and  one  or  more  tem- 
plate is  needed  for  each  aspect  and  rotation  combination  of  the  object.  Experiments 
have  indicated  that  small  changes  in  scale  should  not  affect  results.  A  simple  back 
propagation  algorithm  was  employed  for  training  the  NN. 

During  the  recognition  phase,  the  scene  is  converted  to  the  wavelet  domain 
and  at  the  pre-specified  decomposition  level  the  data  is  broken  up  into  a  series  of 
templates.  Each  template  is  run  through  the  Neural  Network  and  tested  for  the 
existence  of  UXO  objects.  The  results  are  promising  and  recommend  further  research 
as  well  as  the  possible  use  of  this  system  on  a  mobile  platform.  It  is  important  to 
note  that  the  techniques  described  are  not  limited  to  image  data  but,  could  also  be 
used  with  magnetometer  and  other  sensor  readings  for  UXO  detection.  This  suggests 
one  future  avenue  of  research  is  that  of  combining  different  sensor  data  as  input  to 
the  system. 

B.      WAVELETS 

Superposition  of  functions  to  describe  other  functions  has  been  used  since 
Fourier's  work  in  1800's.  In  the  mid-1980's,  Stephane  Mallat  discovered  relationships 
between  pyramid  algorithms  and  orthonormal  wavelet  functions  which  triggered  the 
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current  interest  in  wavelet  transformations  [Ref.  13].  Unlike  Fourier  transform,  many 
modern  wavelets  have  compact  support  (are  zero  outside  a  finite  interval),  which 
helps  localize  signals  in  time  [Ref.  14]. 

1.        Basic  Mathematical  Derivation 

In  this  section,  we  describe  the  Daubechies  wavelet  transform  [Ref.  14].  We 
start  with  the  basic  wavelet  function  ip(t)  and  its  time  translatable  family 

ipk{t)  =  rj;{t  -  k)     keZ,  (IV.l) 

where  Z  is  the  set  of  integers  and  k  is  the  translation  factor. 

Next  we  introduce  another  parameter  j  to  allow  scaling  of  the  basic  function. 
Scale  and  time  (or  location)  variations  of  the  basic  wavelet  transform  function  are 
described  by: 

if>j>k(t)  =  2ty(2jt  -  k)     keZ.  (IV.2) 

This  bases  functions  are  used  to  represent  a  function  by  expansion  in  the  same  way 
sines  and  cosines  are  used  to  represent  a  Fourier  series  expansion  of  that  function. 
This  is  done  by: 

/(*)  =  E^*jkW.  (IV-3) 

where  a^k  is  the  discrete  wavelet  transform  values  of  f(t).  If  ipj,k{t)  forms  an  or- 
thonormal  basis  for  the  space  of  signals  of  interest,  ahk  can  be  defined  as  the  inner 
products 

«**  =  <**(*),  /(*)>■  (IV-4) 

One  common  way  of  calculating  the  wavelet  ip(t)  is  to  define  first  an  orthonor- 
mal  scaling  function  ip(t).  Following  Equations  (IV.l)  and  (IV.2),  we  have 

iph{t)   =  tp(t-k)    fcez,  (iv.5) 

<Pj,k(t)    =    2i(p{2H-k)     keZ.  (IV.6) 

Using  multi-resolution  analysis  [Ref.  15],  we  can  write  (p(i)  as 

<p(t)  =  Y,h(n)V2<p{2t-k)     neZ,  (IV.7) 
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where  h(n)  is  the  scaling  function  coefficients  and  the  a/2  maintains  the  norm  of  the 
scaling  function  with  a  scale  of  two  (j  =  1). 

Based  on  the  orthogonality  principle  we  also  have 

<  <phk(t), 0i|f(t)  >  =  J ^phk{t)ijhl{t)dt  =  0  (IV.8) 

for  all  appropriate  j,  k,  I  €  Z.  Now  we  can  write  i]){t)  as 

i){t)  =  Y,hi{n)\/2ip{2t-k)     n  e  Z,  (IV.9) 

n 

where  hi  (n)  are  the  wavelet  coefficients  that  help  define  the  transform,  and  relates  to 
the  scaling  function  coefficients  by 

hi{n)  =  {-l)nh{l-n).  (IV.10) 

Having  defined  ip(t)  and  </?(£),  we  can  now  represent  a  function  g(t)  as  the  series 
expansion 

oo  oo        oo 

g(t)=    £    c{k)<pk(t)  +  E    £   d(j,k)^k(t),  (IV.ll) 

k=— oo  j=0  fc=— oo 

where  the  first  summation  gives  a  low  resolution  approximation  of  g(t)  and  the  sec- 
ond summation  gives,  for  each  increasing  j,  higher  resolutions  of  the  function.  The 
coefficients  c(k)  and  d(j,  k)  are  defined  as  follows: 

c(k)=<g(t),<ph(t)>     =    J  9(t)<Pk(t)dt,  (IV-12) 

d(j,k)=<g(t),ij;j}k(t)>     =    J  g{t)^k(t)dt.  (IV.13) 

The  following  equations  are  necessary  for  calculating  the  scaling  coefficients 
for  the  Daubechies  wavelet  [Ref.  16],  which  is  the  wavelet  used  in  this  thesis. 

5>(n)    =    v/2  (IV.14) 

n 

_  1    if  k  =  0 

5>(n)/i(n  -  2fc)    =    S{k)  =  {  (IV.15) 

n  0    otherwise 

X>W|2    =    i  (IV.16) 
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For  a  length-4  coefficient  sequence  (Daubechies-4)  we  have  the  conditions: 

h(0)  +  h{l)  +  h(2)  +  h{3)    =    y/2,  (IV.17) 

h(0)2  +  h(l)2  +  h{2)2  +  h{3)2    =    1,  (IV.18) 

h(0)h{2)  +  h(l)h(3)    =    0.  (IV.19) 

This  yields  a  solution 

,  [1  +  V3   3  +  y/3  3-^3   l-s/3] 

hm=\-wr'i7r'^vr'^vr}  (IV-20) 

that  is,  the  Daubechies-4  scaling  coefficients. 

2.        Implementation 

a.         The  DWT  Algorithm 

The  algorithm  used  in  this  thesis  was  taken  from  reference  17,  where 
the  corresponding  C  code  is  given.  The  code  was  changed  to  work  with  C  zero- 
based  indexed  arrays.  Consider  a  ID  signal  represented  by  a  ID  column  vector  of 
length  N.  To  get  the  wavelet  Daubechies-4  transformation,  which  will  be  another 
ID  column  vector  of  the  same  length,  you  will  multiply  the  vector  by  the  following 
N  x  N  orthogonal  matrix  [Ref.  17]: 


h(0)      /i(l)      h{2)     h{3) 

/i(3)    -h{2)    h(l)  -h(0) 

h(0)      h(l)      h{2)      h{3) 

h(S)  -h{2)    h(l)    -h(0) 

h{0)      h(l)     h{2)      h{3) 

h{3)    -h{2)    h{l)    -h{0) 

h{2)      h(3)  h(0)      h(l) 

h(l)    -h(0)  h{3)    -h{2) 

(IV.21) 
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where  the  blanks  stand  for  zeroes.  The  values  for  h(0),  h(l),  h(2)  and  h(3)  are  given 
by  Equation  IV.20. 

When  this  matrix  is  multiplied  by  the  column  vector,  the  result  is 
another  column  vector  of  length  N,  where  the  odd  rows  represents  smoothed  values 
of  adjacent  rows  and  even  rows  represents  differenced  values  of  adjacent  rows  on  the 
original  column  vector.  The  algorithm  then  groups  all  the  smoothed  rows  in  the  first 
half  of  the  column  and  all  the  differenced  values  on  the  second  half.  This  process 
is  recursively  applied  over  the  smoothed  values,  until  we  have  just  two  remaining 
smoothed  values  on  the  top  of  the  column  vector.  At  each  iteration  z,  the  smoothed 
and  differenced  values  correspond  to  2l  adjacent  rows  of  the  original  value. 

For  a  two  dimensional  signal  (like  an  image),  the  algorithm  is  initially 

applied  over  each  row  of  the  2D  matrix,  and  then  over  each  column  of  the  transformed 

matrix  [Ref.     18].     The  result  is  presented  in  Figure  a,  where  Dj  stands  for  the 

differenced  operation  over  the  i  dimension  of  the  matrix  and  analogously  Si  stands 

for  the  smoothing  operation.  In  our  study,  we  just  considered  the  portions  that  have 

been  smoothed/differenced  the  same  number  of  times  in  both  directions  (underlined 

diagonal  elements  in  Figure  a). 

b.         Image  Manipulation 

Our  vision  system  uses  the  Matrox  Image  Library.  This  library  provides 
several  routines  in  C  for  manipulating  images.  In  our  work,  we  basically  used  the 
routines  for  reading,  rotating,  translating,  scaling  and  displaying  a  picture.  All  the 
pictures  fed  into  the  DWT  algorithm  were  cropped  to  be  512  x  512  pixels,  in  size. 

During  the  coding  phase,  while  extracting  the  features,  we  figure  out 
that  the  DWT  applied  over  the  log  of  the  greyscale  values  of  the  picture,  results  in 
a  less  noisy  output,  as  illustrated  in  Figure  10.  This  was  also  used  in  [Ref.  19].  The 
feature  points  are  more  distinct  in  (b)  than  in  (a). 
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Figure  9.  DWT  Results  over  a  2D  Matrix. 
C.      ASSUMPTIONS  AND  DATABASE 

As  discussed  previously,  the  application  of  UXO  detection  on  a  mobile  platform 
allows  us  to  assume  that  the  objects  presented  to  us  on  a  fixed  camera  platform  will  fall 
in  a  small  range  of  known  scale.  Figure  2  illustrates  the  mobile  platform  "Shepard" , 
that  will  soon  receive  a  fixed  camera  assembly. 

For  these  experiments,  a  50mm  lens  was  used  and  the  range  to  the  object  was 
assumed  to  be  approximately  6  feet.  The  data  was  collected  with  a  camera  manually 
to  mimic  the  robotic  assembly.  This  was  necessary  as  the  UXO  objects  were  not 
available  on  site  and  travel  to  Moffett  Field  was  required.  A  digital  camera  was  used 
for  collecting  some  of  the  training  and  some  of  the  test  data,  the  other  was  taken 
with  a  CCD  analog  camera.  We  assumed  also  that  the  camera  creates  512  x  512 
pixel  images.  It  is  important  to  note  that  any  different  camera  configuration  can  be 
accommodated,  given  that  new  training  data  is  provided. 

Note  that  the  objects  may  appear  in  any  aspect,  rotation  and  position  in  the 
scene.  Figures  11  ,12  and  13  show  three  UXOs  that  are  used  in  our  database.  Possible 
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Wavelets  Coef  Level  3  Figure  Ofa0s27a0  without  Log 


Wavelets  Coel  Level  3  Figure  Ota0s27a0  with  Log 


(a)  Without  Log 


(b)  With  Log 


Figure  10.  The  Feature  Points  Are  More  Distinctive  in  the  Wavelet  of  the  Log  Domain 
Shown  in  (b)  Compared  to  Those  Extracted  for  the  Same  Scene  in  the  normal  Wavelet 
Domain  (a) 

aspects  of  each  object  is  shown.  We  define  an  aspect  as  a  unique  view  of  an  object 
such  that  different  surfaces  of  the  object  are  viewable  in  each  aspect.  For  this  study, 
a  single  aspect  of  each  object  was  used  (aspect  0)  as  a  proof  of  concept. 

D.      FEATURE  EXTRACTION 

1.       "Interest  Point"  Detection 

There  are  many  kinds  of  features  that  can  be  extracted  as  was  discussed  previ- 
ously, in  our  generic  image  recognition  system  of  Chapter  3.  There  exists  a  trade-off 
between  how  local  and  global  a  feature  is  and  typically  the  time  and  ease  of  extraction 
of  the  feature.  While  global  features  are  desirable,  it  is  often  not  possible  to  define 
nor  extract  such  features  reliably.  Global  features  such  as  surfaces  work  best  with 
very  simple  objects  like  planar  objects  and  do  not  work  for  fluidly  shaped  objects. 
While  UXOs  are  man-made  objects  they  are  very  complex  and  have  smoothly  varying 
shapes  as  can  be  seen  in  Figures  11,  12  and  13.    This  combined  with  the  fact  that 
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(a)  Aspect  0 


(b)  Aspect  1 


(c)  Aspect  2 


(d)  Aspect  3 


(e)  Aspect  4 


Figure  11.  81mm  Mortar  (class  1). 
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(a)  Aspect  0 


(b)  Aspect  1 


(c)  Aspect  2 


(d)  Aspect  3 


(e)  Aspect  4 


Figure  12.  105mm  HEAT  Round  (class  2) 
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(a)  Aspect  0 


(b)  Aspect  1 


(c)  Aspect  2 


(d)  Aspect  3 


(e)  Aspect  4 


Figure  13.  105mm  Artillary  Round  (class  3) 
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many  of  the  objects  look  similar,  was  why  we  choose  to  look  for  more  local  rather 
than  global  features. 

A  type  of  local  feature  successfully  used  in  computer  vision  systems  is  the 
edge.  An  edge  measures  the  local  discontinuity  in  greyscale  values.  The  larger  the 
discontinuity,  the  greater  the  edge  strength.  In  our  system,  we  detect  "Interest  Points" 
in  a  wavelet  domain  that  can  be  loosely  thought  of  as  edge  points  of  greater  strength. 
Another  reason  why  the  wavelet  transform  is  used  is  because  its  multi-resolution 
nature  can  lead  to  improved  computational  performance  if  lower-resolution  levels  can 
be  examined. 

After  converting  the  image  to  the  wavelet  domain,  we  have  chosen  to  perform 
feature  extraction  and  subsequent  recognition  at  the  3rd  level  of  decomposition.  This 
means  that  instead  of  examining  the  entire  512  x  512  image  we  are  now  looking  only 
at  a  64  x  64  image.  This  level  was  chosen  using  the  results  described  in  [Ref.  3] 
that  discusses  how  to  pick  an  optimal  level  in  which  to  perform  object  localization. 
Figure  14,  shows  the  3rd  decomposition  level  for  the  image  in  Figure  12  (b).  While 
Figure  15  show  the  whole  DWT  output  of  that  image.  Notice  that  it  still  retains 
much  of  the  detail  needed  to  identify  the  object. 

The  "Interest  Points"  in  this  level  of  the  wavelet  domain  are  extracted  as 
the  top  ten  wavelet  pixel  values.  These  points  will  correspond  to  the  strongest  edge 
points  at  this  level  of  resolution.  As  discussed  in  the  next  section,  we  use  not  only  the 
location  of  each  point  but,  also  extract  other  attributes  to  create  a  feature  vector  for 
each  "Interest  Point".  Our  hypothesis  is  that  these  "Interest  Point"  feature  vectors 
while  containing  local  information  can  together  be  used  to  create  a  description  that 
will  distinguish  different  objects  in  particular  aspects  and  angles  in  the  UXO  database 
from  each  other. 

After  a  point  is  selected  and  its  feature  vector  calculated,  the  wavelet  values  in 
the  surrounding  3x3  neighborhood  are  set  to  zero  to  avoid  their  selection  as  "  Interest 
Points" .  This  will  guarantee  a  distribution  of  points  in  the  wavelet  domain.  Also  we    , 
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Wavelets  Coef  Level  3  Figure  oc2a1s0 


10  20  30  40  50  60 


Figure  14.  Third  Level  Wavelet  Decomposition. 

sort  the  "Interest  Points"  and  their  feature  vectors  by  their  distances  to  the  origin  of 
the  wavelet  domain  (upper-left  hand  corner). 

Figure  16  shows  for  an  aspect  of  each  UXO  object  the  "Interest  Points"  de- 
tected. In  Figure  17,  objects  are  shown  at  different  angles  but,  the  same  aspect. 
Notice  that  the  "Interest  Points"  are  different  for  different  aspects  and  angles.  In 
Figure  18  shows  an  object  at  different  locations  in  the  image  and  the  fact  that  the 
location  of  the  "Interest  Points"  are  close  to  constant. 

2.       Features  at  each  "Interest  Point" 

Each  "Interest  Point"  extracted  is  described  by  a  feature  vector.  This  vector 
consists  of  the  location  of  the  point,  its  wavelet  value,  the  average  wavelet  value  in 
a  local  neighborhood  and  the  variance  of  the  wavelet  values  in  a  local  neighborhood. 
For  the  purpose  of  these  experiments,  a  neighborhood  of  3  x  3  was  chosen. 

Note  that  the  location  of  each  point  is  in  reference  to  the  centroid  of  all  of  the 
detected  "Interest  Points"  (Equations  IV. 22  and  IV. 23).  This  is  important  as  we  do 
not  want  the  absolute  location  of  the  "Interest  Points"  but,  their  locations  relative 
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Figure  15.  Wavelet  Decomposition. 


to  each  other.  The  wavelet  values  are  first  divided  by  their  maximum  absolute  value 
to  provide  normalization.  This  will  be  useful  later  during  the  template  scanning,  to 
assure  that  the  same  range  of  values  will  be  fed  into  the  NN.  Note  that  as  mentioned 
before,  every  template  has  its  value  normalized  before  the  feature  vector  is  extracted. 
This,  together  with  the  relative  location  of  the  features,  guarantees  that  the  range 
of  the  values  for  the  scanned  feature  vector  will  match  the  one  used  during  training. 
The  9  values  of  a  3  x  3  neighborhood  of  a  selected  "  Interest  Point" ,  will  be  combined 
according  to  Equations  IV. 24  and  IV. 25  to  give  the  feature  vector's  mean  and  variance, 
respectively. 

2^i=l  Xi 


x    = 

V  = 

V  = 


9 

9 
E?=i  Value?  -  S 


(IV.22) 

(IV.23) 

(IV.24) 

(IV.25) 
(IV.26) 
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Highest  10  Level  3  Figure  ociaisO 


Highest  10  Level  3  Figure  oc2a3sO 
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(a)  Feature  Points  for  Figures  11  (b) 
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(b)  Feature  Points  for  Figures  12  (d) 


Highest  10  Level  3  Figure  oc3a2s0 
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(c)  Feature  Points  for  Figures  13  (c) 

Figure  16.  Feature  Points  Detected  for  Different  Aspects.   Darker  Points  Represent 
Larger  Wavelet  Values. 
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(a)  Object  Class  1  Aspect  0  at  0° 


Highest  10  Level  3  Figure  oclaOsOaO 
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(b)  Feature  Points  Extracted  from  (a) 


Highest  10  Level  3  Figure  oc1aOsOa45 


(c)  Object  Class  1  Aspect  0  at  45c 
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(d)  Feature  Points  Extracted  from  (c) 


Highest  10  Level  3  Figure  ocla0s0a90 


(e)  Object  Class  1  Aspect  0  at  90c 
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(f)  Feature  Points  Extracted  from  (e) 


Figure  17.  Feature  Points  Detected  for  Different  Angles 
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Highe-d  10  Level  3  Flgur  oc1»0*6 
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(a)  Object  Class  1  Aspect  0  No  Translation        (b)  Feature  Points  Extracted  from  (a) 


Highest  10  LevH  3  Ft  guv  ocleOtBI 
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(c)  Object  Class  1  Aspect  0  Translated  (d)  Feature  Points  Extracted  from  (c) 


Highest  10  Level  3  Figwe  oc1*Os6l2 
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(e)  Object  Class  1  Aspect  0  Translated  (f)  Feature  Points  Extracted  from  (e) 


Figure  18.  Feature  Points  Detected  for  Different  Translations 
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Feature 
Vector 

X 

Y 

Value 

Mean 

Variance 

1 

-7.400 

0.300 

0.673 

0.255 

0.045 

2 

-2.400 

-1.700 

-0.230 

0.091 

0.005 

3 

-9.400 

4.300 

-0.731 

0.262 

0.044 

4 

-2.400 

1.300 

0.526 

0.121 

0.025 

5 

1.600 

-1.700 

0.431 

0.158 

0.017 

6 

-3.400 

4.300 

-0.404 

0.091 

0.015 

7 

5.600 

-4.700 

0.285 

0.094 

0.008 

8 

2.600 

1.300 

-1.000 

0.270 

0.099 

9 

5.600 

0.300 

0.336 

0.198 

0.033 

10 

9.600 

-3.700 

-0.522 

0.173 

0.022 

Table  V.  Feature  Vectors  for  Figure  16  (a) 

Table  V  lists  the  feature  vectors  extracted  for  the  UXO  shown  in  Figure  16 
(a).  Table  VI  lists  the  feature  vectors  extracted  for  a  different  UXO  object  shown  in 
Figure  16  (b).  Notice  that  the  feature  vectors  are  different  enough  to  distinguish  the 
two  apart. 


Feature 
Vector 

X 

Y 

Value 

Mean 

Variance 

1 

-2.000 

-6.900 

0.390 

0.176 

0.032 

2 

-2.000 

-3.900 

1.000 

0.361 

0.133 

3 

1.000 

-6.900 

0.848 

0.306 

0.074 

4 

-5.000 

2.100 

0.457 

0.094 

0.024 

5 

1.000 

-3.900 

0.805 

0.253 

0.077 

6 

4.000 

-2.900 

-0.791 

0.314 

0.080 

7 

-4.000 

7.100 

0.507 

0.198 

0.032 

8 

4.000 

1.100 

0.337 

0.167 

0.010 

9 

0.000 

8.100 

-0.450 

0.146 

0.017 

10 

3.000 

6.100 

-0.314 

0.130 

0.009 

Table  VI.  Feature  Vectors  for  Figure  16  (b) 
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3.       Training  Data:  Examples 

Figure  17  shows  some  of  the  training  data  used.  Unfortunately,  we  were  only 
able  to  obtain  27  images  per  aspect  of  the  UXO  objects.  Additionally,  for  ease  of 
the  test  study,  we  chose  a  single  aspect  of  each  object.  Rotational  versions  of  each 
aspect  where  generated  from  these  samples  by  rotating  the  images  at  increments  of 
0,  45  and  90  degrees. 

E.       RECOGNITION  SYSTEM 

In  this  section,  the  structure  of  the  Recognition  System  is  described.  It  consists 
of  using  Neural  Networks  to  implement  a  template  matching  scheme. 

While  we  have  made  the  hypothesis  that  the  features  extracted  at  each  of  the 
ten  interest  points  for  an  object  will  adequately  describe  an  object,  it  is  not  true  that 
an  image  consisting  of  possibly  multiple  objects  in  a  more  natural  setting  than  the 
training  data  will  have  the  top  ten  interest  points  only  belonging  to  a  single  object. 
Thus,  we  must  somehow  look  at  multiple  combinations  of  ten  interest  points  in  the 
scene  data,  each  representing  a  possible  object  hypothesis.  Given  this  is  the  case, 
a  scheme  involving  template  scanning  was  created  to  examine  only  portions  of  the 
scene  at  a  time.  In  each  of  these  template  portions,  the  top  ten  interest  points  are 
fed  into  our  Neural  Network  Processing  System  for  the  purpose  of  verification  of  the 
hypothesis  that  they  correspond  to  the  interest  points  of  a  particular  object  at  a 
particular  angle  and  aspect  combination.  Note  that  the  center  of  the  template  itself 
yields  the  location  of  the  object  in  the  scene. 

1.       Template  Scanning 

Because  we  have  objects  of  varying  size  and  the  largest  object  spans  approxi- 
mately only  75%  of  the  image  area  in  its  longest  aspect,  we  do  not  want  to  consider 
the  entire  image  but,  only  regions  of  the  image  as  potentially  containing  objects.  By 
looking  in  smaller  regions,  there  is  less  likelihood  that  we  will  detect  "Interest  Points" 
from  the  image's  background.   Hence  we  perform  a  template  scanning  procedure  to 
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divide  the  image  under  consideration  into  smaller  regions. 

Recall,  that  the  system  is  actually  examining  the  3rd  decomposition  level  of  the 
wavelet  domain  which  in  this  case  is  64x64  pixels  in  size.  Consequently,  we  examine 
different  regions  of  the  image  that  are  64  x  16,  16  x  64,  48  x  16,  16  x  48,  38  x  16,  16  x  38, 
36  x  28  and  34  x  27,  45  x  36  in  size.  Other  sized  templates  could  be  used  as  a  way  of 
improving  system  performance.  Choice  of  these  template  sizes  should  be  a  function 
of  the  range  of  the  various  aspect  shapes  in  the  database.  The  first  6  templates  where 
chosen  to  try  to  capture  the  near  horizontal  and  near  vertical  placement  of  objects  in 
the  scene.  The  last  three  templates  attempt  to  capture  diagonal  rotations  of  objects 
in  the  scene.  Again  all  of  these  sizes  where  manually  chosen  and  the  determination 
of  these  sizes  is  a  possible  future  area  of  research. 

Before  performing  the  template  scanning,  we  set  the  10%  lowest  wavelet  values 
(3rd  decomposition)  to  zero.  In  doing  this,  we  are  removing  the  Gaussian  noise  from 
the  picture  [Ref.  20]. 

There  are  multiple  instances  of  the  smaller  sized  templates  and  some  "  template 
scanning"  scheme  is  needed  to  extract  them.  Below  is  the  algorithm  used: 

for (row  =  0;    row  +  window_vertical_size   <=  64;    row+=SCAN_STEP) 
for (column  =  0;    column  +  window_horizontal_size   <=  64; 
column+=SCAN_STEP) 
f ind_scan_ten_highest (row , column ,window_vertical_size , 

window_horizontal_size) ; 

The  feature  vectors  from  each  candidate  template  are  placed  in  a  file  in  the 
order  of  their  extraction  for  processing  by  the  Neural  Network  System  described  next. 

2.       Neural  Network  System 

In  this  section,  we  describe  the  Neural  Network  System  that  is  used  to  perform 
recognition  of  the  UXO  objects  given  the  input  of  the  ten  feature  vectors.  First,  the 
structure  of  the  Network  System  is  described.  Next,  the  training  process  is  described. 
For  a  review  of  Neural  Networks  and  a  discussion  of  learning  methods  used  see  the 
previous  chapter  on  Neural  Networks. 
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a.         Structure 

Figures  19  and  20  are  diagrams  of  the  Neural  Network  Systems  that 
were  developed  to  perform  recognition  given  our  10  feature  vectors  as  input.  We 
tested  the  system  using  a  single  NN  for  all  classes  as  well  as  a  NN  for  each  separate 
class  (Multiple  NN).  In  the  multiple  NN  case,  we  will  refer  to  a  Neural  Network  for 
Object  i  as  NNi.  Neural  Network  NNi  is  responsible  for  determining  whether  or  not 
the  input  feature  vectors  classify  as  feature  vectors  from  Object  i. 

1.  Multiple  NN  Case 

The  output  of  each  NN  consists  of:  the  most  likely  class,  as  well  as  a  measure 
of  confidence.  Notice  that  the  outputs  from  the  NNs  in  Figure  20  are  passed  to 
a  Voting  algorithm,  that  will  determine  which  if  any  of  the  NNi's  indicate  the 
presence  of  an  object  and  if  so  the  identity,  aspect  and  angle  of  it.  If  the  error 
is  small  enough  (measure  of  confidence  is  great  enough),  than  the  location  of 
the  template  is  marked  as  containing  the  detected  object.  As  many  templates 
are  processed,  it  is  possible  to  find  multiple  objects  located  in  the  scene.  The 
internal  structure  of  each  NN  is  identical  and  depicted  in  Figure  21.  Notice 
that  there  are  50  inputs  to  feed  in  the  5  elements  of  the  10  "Interest  point's" 
feature  vectors.  The  middle  layer  contains  50  nodes.  The  output  consists  of 
N  nodes  representing  the  N  classes. 

2.  Single  NN  Case 

We  also  created  two  versions  of  the  single  NN  architecture.  The  first  case 
consisted  of  three  output  nodes  representing  the  three  objects  at  aspect  0  and 
angle  0.  The  second  case  consisted  of  nine  output  nodes  representing  the 
following  classes: 

•  {objl,  0°,  aspectO}  {objl,  45°,  aspectO}  {objl,  90°,  aspectO} 

•  {obj2,  0°,  aspectO}  {obj2,  45°,  aspectO}  {obj2,  90°,  aspectO} 

•  {obj3,  0°,  aspectO}  {obj3,  45°,  aspectO}  {obj3,  90°,  aspectO} 

These  classes  do  not  represent  but  are  only  a  example  of  all  the  possible  objects, 
aspects  and  angles  combinations.  However,  we  believe  it  is  a  sufficient  enough  sample 
to  test  the  usefulness  of  this  recognition  system  on  UXO  detection. 
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The  output  of  each  NN  during  testing  however  will  typically  not  be 
binary.  Because  of  the  sigmoid  function  applied  as  described  in  Chapter  2,  the  output 
of  each  node  varies  from  0  to  1.  For  each  node,  we  then  round  its  output  to  either  0  or 
1  (threshold  of  0.5).  The  difference  between  the  actual  output  vector  and  the  binary 
rounded  vector  is  used  as  the  error  measure.  Note  that  a  measure  of  confidence  can 
be  taken  to  be  inversely  related  to  this  error  measurement.  For  example,  in  the  3 
class  case,  suppose  we  have 


rounding  we  have: 


Thus,  the  decision  is: 


Output  =  [0.3  0.2  0.9]  (IV.27) 


Rounded  Output  =[0  0  1]  (IV.28) 


\/0.32  +  0.22  +  0.12 
Decision  =  Class  1  with  error  =  — : ■ —  =  0.1247  (IV. 29) 

b.         Presentation  of  Results 

Here  we  discuss  results  based  on  the  order  of  sets  of  consecutive  tem- 
plates with  similarly  low  error  values.  The  following  results  are  printed-out  to  the 
screen  for  user  inspection: 

A8:    Class   identity  of  8  consecutive  templates  yielding  same  identity 

and  similar  error.    This   is  the  lowest   of  all  such  8-consecutive 

sets. 

A7:    Class   identity  of  7  consecutive  templates  yielding  same  identity 

and  similar  error.   This  is  the  lowest  of  all  such  7-consecutive 

sets. 

A6:    Class   identity  of  6  consecutive  templates  yielding  same  identity 

and  similar  error.    This   is  the  lowest  of  all  such  6-consecutive 

sets. 

A5:    Class   identity  of  5  consecutive  templates  yielding  same  identity 

and  similar  error.    This   is  the  lowest  of  all  such  5-consecutive 

sets. 

A4:    Class   identity  of  4  consecutive  templates  yielding  same  identity 

and  similar  error.   This   is  the  lowest  of  all  such  4-consecutive 
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sets. 
A3:    Class   identity  of  3  consecutive  templates  yielding  same   identity 
and  similar  error.    This   is  the  lowest  of   all  such     3-consecutive 
sets . 

By  similar  error  we  mean  that  the  values  fall  within  A  of  each  other.  For 
this  thesis  A  =  10~8.  Ideally,  you  would  choose  the  answer  Ai  where  you  maximize 
i  at  the  same  time  as  minimizing  the  corresponding  error.  This  was  implemented  by 
using  the  equation 

Vr  =  l  +  %*,  (IV.30) 

and  picking  the  consecutive  windows  which  maximizes  its  value,  where  Emax  = 
ma,xEi,E2,...,Es  and  Ei  is  the  corresponding  error.  In  practice,  picking  Ai  with  the 
least  error  or  minimizing  Vi:  gave  very  similar  results. 

c.  Training 

Training  takes  place  using  the  back-propagation  learning  method  de- 
scribed in  Chapter  2.  A  set  of  27  images  for  every  aspect  &  angle  combination  for 
an  object  is  presented  as  input  to  the  NN  along  with  the  correct  classification  infor- 
mation. In  the  both  NN  cases  (multiple  and  single  NNs),  due  to  the  limited  number 
of  training  samples  available,  and  a  need  to  also  detect  objects  that  are  not  Object 
i,  a  set  of  training  images  of  other  objects  besides  Object  i  are  presented  as  input  to 
NNi.  These  examples  work  as  counter  examples  for  the  training  process. 

The  network  is  trained  until  it  converges  to  an  error  less  than  .02  (for 
three-class  case)  or  .05  (for  nine-class  case). 

The  approximate  time  it  took  to  train  each  Neural  Network  ranged 
from  10  hours  to  7  days  on  a  SGI  02  machine  with  a  180  MHz  R5000  processor. 

F.       IMPLEMENTATION 

The  Feature  Extraction  Program  and  the  Scanning  Program  (Appendix  D) 
are  implemented  in  Microsoft  Visual  C++.   The  Neural  Network  Training  Program 
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(Appendix  A)  as  well  as  the  Neural  Network  Recognition  Program  (Appendix  E)  are 
implemented  in  Allegro  Common  Lisp  4.2  on  an  SGI  machine. 

All  the  details  about  the  implementation  of  the  recognition  system  presented 
in  this  chapter,  are  listed  in  Appendix  J. 

G.      RESULTS 

1.  Test  Data 

We  have  grouped  the  Testing  data  into  four  successfully  more  difficult  sets  of 
scene  data.  The  first  set  consist  of  samples  of  the  training  data  and  the  entire  image 
is  presented  as  a  template,  rather  than  performing  template  scanning.  The  second 
set  consists  again  of  training  data  where  we  do  perform  template  scanning.  The  third 
set  consists  of  objects  against  a  background.  The  fourth  set  depicts  multiple  objects 
in  a  scene. 

2.  Accuracy 

a.  Three-Class  Case 

All  of  images  in  Set  #1  were  classified  correctly.  Table  VII  shows  the 
results  for  Test  Set  #2  and  Table  VIII  shows  the  results  for  Test  Set  #3,  for  the 
multiple  NN.  While  Table  IX  shows  the  results  for  Test  Set  #2  and  Table  X  shows 
the  results  for  Test  Set  #3,  for  a  single  NN.  Table  XI  shows  the  results  for  set  #4. 
For  the  multiple  NN  case  we  have  (Min  Error): 

•  Out  of  the  81  samples  in  Test  Set  #2,  74  (91.4%)  are  classified  correctly  by 
object  identification,  79  (97.5%)  correctly  located  and  74  (91.4%)  are  correctly 
located  and  identified. 

•  Out  of  the  21  samples  in  Test  Set  #3,  13  (61.9%)  are  classified  correctly  by 
object  identification  ,  15  (71.4%)  correctly  located  and  13  (61.9%)  are  correctly 
located  and  identified. 

For  the  single  NN  case  we  have  (Min  Error): 

•  Out  of  the  81  samples  in  Test  Set  #2,  74  (91.4%)  are  classified  correctly  by 
object  identification,  78  (96.4%)  correctly  located  and  74  (91.4%)  are  correctly 
located  and  identified. 
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Table  VII.  Results  for  Multiple  NN  3  Classes  Set  2 


•  Out  of  the  21  samples  in  Test  Set  #3,  11  (52.4%)  are  classified  correctly  by 
object  identification  ,  16  (76.2%)  correctly  located  and  11  (52.4%)  are  correctly 
located  and  identified. 

•  Out  of  the  6  samples  in  Test  Set  #4,  4  (66.7%)  are  classified  correctly  by 
object  identification  ,  5  (83.3%)  correctly  located  and  4  (66.7%)  are  correctly 
located  and  identified. 

In  Figure  22  shows  an  example  of  the  results  obtained  for  the  single 

NN  case  with  a  set  #3  picture.  The  box  in  Figure  22  (b)  represents  the  location  of 

the  best  answer  found. 

b.         Nine-Class  Case 

All  of  the  images  in  Set  #1  are  classified  correctly.   Tables  XII,  XIII 

and  XIV  show  the  results  for  Test  Set  #2  and  Tables  XV,  XVI  and  XVII  show  the 

results  for  Test  Set  #3,  for  a  single  NN.  Tables  XVIII,  XIX  and  XX  show  the  results 

for  set  #4. 

For  the  single  NN  case  we  have  (Min  Error): 

•  Out  of  the  243  samples  in  Test  Set  #2,  184  (75.7%)  are  classified  correctly  by 
object  identification,  205  (84.4%)  with  correct  angle  information,  225  (92.6%) 
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Figure  19.  Diagram  for  a  Single  Neural  Network. 
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Table  VIII.  Results  for  Multiple  NN  3  Classes  Set  3. 
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Figure  20.  Diagram  for  Multiple  Neural  Networks. 
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Figure  21.  Three-Layer  Neural  Network. 
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Table  IX.  Results  for  a  Single  NN  3  Classes  Set  2 
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correctly  located  and  173  (71.2%)  are  classified  correctly  for  location,  angle  in 
addition  to  identification. 

Out  of  the  63  samples  in  Test  Set  #3,  31  (49.2%)  are  classified  correctly  by 
object  identification,  35  (55.6%)  with  correct  angle  information,  40  (63.5%) 
correctly  located  and  21  (33.3%)  are  classified  correctly  for  location,  angle  in 
addition  to  identification. 

Out  of  the  18  samples  in  Test  Set  #4,  12  (66.7%)  are  classified  correctly  by 
object  identification,  12  (66.7%)  with  correct  angle  information,  13(72.2%) 
correctly  located  and  8  (44.4%)  are  classified  correctly  for  location,  angle  in 
addition  to  identification. 
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Figure  22.  Location  Results  for  Set  #3  Three-Class  Case 
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Table  XIII.  Results  for  a  Single  NN  9  Classes  Set  2  Angle  45° 
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Table  XIV.  Results  for  a  Single  NN  9  Classes  Set  2  Angle  90° 
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Table  XV.  Results  for  a  Single  NN  9  Classes  Set  3  Angle  0° 
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Table  XVI.  Results  for  a  Single  NN  9  Classes  Set  3  Angle  45c 
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Table  XX.  Results  for  a  Single  NN  9  Classes  Set  4  Angle  90° 

In  Figure  23  samples  from  set  #  4  are  shown.  Figure  23  (a)  shows 
objects  cl  and  c2  at  angle  0°,  the  boxes  and  text  superimposed  indicate  the  location 
and  identity  information  produced  by  the  NN.  All  existing  answers  for  cases  A3 
through  A8  (See  Section  2.b  of  this  chapter)  are  displayed.  Figure  23  (b)  is  the  third 
decomposition  level  of  the  wavelet  domain,  again  with  the  answers  boxes  and  text 
superimposed.  Figure  23  (c),  (d)  and  (e),  (f)  are  pairs  corresponding  to  other  samples 
of  set  #4. 

In  Figure  24  shows  UXOs  not  in  our  training  database.  These  images 
were  used  to  test  the  occurrence  of  false  positives  by  our  system.  Note  that  false 
positives  are  produced  by  our  system.  However,  it  is  interesting  to  note  that  our 
system  does  do  a  good  job  at  localizing  these  objects  in  the  scene. 

3.       Timing 

One  minute  is  the  typical  time  it  takes  to  process  a  single  scene  image  (scan- 
ning plus  NN  processing).  This  speed  could  be  greatly  improved  by  implementing  the 
recognition  system  in  a  language  like  C  rather  than  Lisp  which  is  an  interpretive  lan- 
guage and  requires  a  rather  long  loading  and  running  phases  (approximately  3  times 
slower  than  C).  Another  improvement  could  be  made  in  the  scheme  by  integrating 
the  template  scanning  scheme  currently  implemented  in  C  with  the  Neural  Network 
System  and  stopping  template  scanning  when  the  first  acceptable  template  is  found. 
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Figure  23.  Location  Results  for  Set  #4  Nine-Class  Case 

55 


MmM  Co*'  w-1  5  ftW  '««PO*'»0 


(a)  Sample  1  Identified  as  Classl 


(b)  Wavelet  Domain  for  (a) 


IMmtt  Co*  imi  3  ri«u.  w»otiM 


10  30  30  40  SO  «0 


(c)  Sample  2  Identified  as  Class  1 
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Figure  24.  Samples  of  False  Positive  Results 

4.       Discussion 

This  work  shows  that  it  is  possible  to  use  computer  vision  techniques  for  UXO 
detection  with  good  accuracy  for  a  simple  scene  and  limited  accuracy  for  complicated 
scenes.  The  results  indicate  the  scheme  is  much  better  at  localizing  than  identify- 
ing objects.  The  use  of  higher  level,  more  global  features  for  identification  may  be 
necessary,  instead  of  the  local  ones  used  in  this  research. 


56 


V.         AUTONOMOUS  VEHICLE  NAVIGATION 

ISSUES 

A.      INTRODUCTION 

This  chapter  will  give  an  overview  of  autonomous  vehicle  motion  and  position- 
ing. This  is  a  different  but  essential  component  of  creating  a  mobile  robot  capable 
of  UXO  detection  in  the  field.  All  motion  planning  theory  presented  is  based  on  the 
work  in  references  4,5,6.  "Yamabico"  (Figure  25)  is  the  robot  developed  by  Professor 
Kanayama,  which  is  used  to  test  some  of  the  concepts  presented  here. 


Figure  25.  Robot  "Yamabico" 


This  work  is  in  support  of  the  navigation  system  of  "Yamabico" .   Currently, 
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it  moves  in  an  indoor  environment.  This  thesis  made  the  following  contributions  to 
the  robot's  system. 

1.  Development  of  a  more  general  line  fitting  algorithm  used  in  the  edge  detection 
system. 

2.  Creation  of  a  3D  feature  map  of  an  indoor  environment. 

3.  Development  of  an  algorithm  to  extract  the  visible  features  (vertical  lines)  of 
a  2D  map,  given  a  viewpoint. 

4.  Implementation  of  the  steering  theory  [Ref.  4]  in  "Yamabico's"  motion  system. 

B.      POSITIONING 

There  are  several  ways  of  positioning  a  vehicle  in  the  real  world.  If  one  is 
not  using  an  outside  navigation  system  such  as  GPS,  solving  this  problem  for  an 
outdoor  vehicle  can  be  very  complex.  Our  research  will  deal  with  indoor  navigation 
for  an  autonomous  vehicle.  It  may  be  possible  to  extend  techniques  used  for  indoor 
navigation  to  outdoor  navigation.  Two  stages  are  necessary  in  performing  positioning 
in  indoor  environment.  The  first  involves  using  computer  vision  techniques  to  find 
landmarks  in  the  scene  and  the  second  involves  matching  these  to  landmarks  in  a  3D 
map  of  the  robot's  environment.  The  work  done  in  this  thesis  touches  upon  each  of 
these  stages.  In  Section  1,  below,  we  discuss  a  method  that  can  be  used  to  fit  straight 
lines  to  edge  data.  Such  lines  are  commonly  used  as  landmarks. 

A  second  part  of  this  work  described  in  section  2,  presents  a  methodology  to 
constructs  a  3D  model  using  linear  landmarks. 

1.       Weighted  Line  Fitting  Algorithm 

One  way,  to  help  a  robot  to  position  itself  autonomously  in  a  indoor  envi- 
ronment, is  by  processing  visual  information.  The  robot  can  process  a  picture,  find 
edges  representing  landmarks,  match  them  with  a  model  of  the  world,  and  use  the 
resulting  positioning  information  to  correct  its  inertial  navigation.    Edge  detection 
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can  be  performed  by  several  different  operators.  We  have  chosen  the  Sobel  operator 
[Ref.  7]. 

After  the  edges  have  been  extracted  from  a  picture,  we  need  to  fit  the  edge 
pixels  to  a  straight  line.  This  is  accomplished  by  a  form  of  Least  Squares  Fitting. 

Based  on  Chapter  10  of  [Ref.  21],  we  show  below  the  equations  for  finding  a 
straight  line  given  a  set  of  points  on  it.  The  weight  factor  w  present  in  the  equations,  is 
the  magnitude  of  each  pixel  calculated  by  the  Sobel  operator  signifying  the  strength 
of  the  edge.  The  program  previously  written  to  calculate  edges  of  a  picture,  was 
modified  to  support  the  inclusion  of  this  factor.  So  in  our  case,  w  will  be 
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where  f  is  a  function  that  denotes  the  gradient  of  the  greyscale  value  of  a  pixel  located 
at  (xt,  Hi).  This  is  the  result  of  the  application  of  the  Sobel  operator  over  that  pixel. 

To  detect  a  straight  line  segment  that  fits  a  set  of  edge  points,  we  want  the 
line  which  minimizes  the  distance  of  the  edge  to  the  line.  We  represent  this  distance 
as  the  sum  of  squared  distances  between  all  points  and  the  line  in  question.  The  best 
line  is  found  by  continuously  modifying  the  description  of  the  line  segment  to  best  fit 
the  data  using  a  least  squares  fitting  algorithm. 

We  will  derive  now  a  series  of  Lemmas  ending  in  a  proposition  that  is  the  heart 
of  our  new  algorithm  to  perform  a  weighted  line  fitting  which  we  use  to  detect  our 
straight  line  segments.  Those  segments  will,  in  the  future,  be  used  in  our  mobile  robot 
positioning  system.  Recall,  we  take  the  weights  from  the  edge  values.  Points  which 
greatly  increase  the  error  are  assumed  to  not  belong  to  the  line  under  consideration. 
Let 

R  =  {pu---,Pn}  =  {(xi,yi),---,(xn,yn)}   n>2  (V.2) 

be  a  set  of  n  points  that  are  not  all  equal.   The  moments  m^  of  R  are  defined  as 
follows. 

n 

moo    =    J2wi  (V-3) 

i=l 
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The  centroid  C  =  (//I5  /iy)  of  the  set  R  is  given  by 


i=i 


= 

mio          ,    fmi0\2 
m20      2        mio  +                raoo 
m00             \m00/ 
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m20      2m?»  +  m?° 

m0o       ^00 

M20    = 
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Mn    = 

(V.4) 
(V.5) 
(V.6) 
(V.7) 
(V.8) 


C=(,x,,y)=(^^).  (V.9) 

Vmoo   m00J 

The  secondary  moments  about  the  centroid  are  defined  as 

n 

M20    =    '£wi(xi-i*x)2  (V.10) 

i=l 
n 

Mll      =      52wi(Xi  ~  V>x)(yi  ~  Vy)  (V.ll) 

i=l 

M02    =    itwi(yi-t*y)2  (V-12) 

t=l 

The  following  relations  are  easily  verified. 
Lemma  1 

n 

M2Q      =      J2Wi(Xi  ~  Vx)2 
i=l 
n 

=     Y,(Wix2i   ~  2wixiVx  +  WiVl) 
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m00 
Let  us  consider  a  ray  starting  from  the  origin  O  =  (0, 0)  with  a  direction  of  a, 

where  a  G  [— 7r/2,7r/2].  For  an  arbitrary  point  p  =  (x,y),  let  H  be  the  closest  point 

on  the  ray  from  p. 

Lemma  2  When  a  ray  of  a  direction  a  and  a  point  p  is  given,  the  distance  p  from 
O  to  H  is  given  by 

p  —  x  cos  a  +  y  sin  a.  (V.13) 

The  "distance"  p  may  be  negative  or  zero. 

Using  this  result,  we  adopt  the  parametric  representation  of  a  line  by  its  normal 
direction  a  and  the  distance  r  from  the  origin  O  (a  and  r  are  constants).  Actually, 
this  line 

L={r,a)  (V.14) 

is  the  set  of  points  (x,  y)  which  satisfies  the  relation 

x  cos  a  +  y  sin  a  =  r.  (V.15) 

This  representation  has  a  striking  advantage  as  opposed  to  the  normal  method 
of  using  a  formula  y  =  f(x),  as  this  parametric  method  has  no  singularity  with  respect 
to  vertical  lines. 
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Lemma  3   The  signed  distance  (or  residual)  Si  from  point  pi  =  (xj,  yi)  to  the  line 
L  =  (r,  a)  is 

Si  =  Xicosa  +  yisina  —  r.  (V.16) 

Proposition  1  For  a  set  of  points 

R=  {pw-,Pn}  =  {(xi,yi)y---,(xn,yn)},  (V.17) 

a  line  L  —  (r,  a)  with 

a    =    -atan2(-2Mn,  M02  -  M20)  (V.18) 

m10  77T.Q1     .  .  ,,  .        . 

r    =    cos  a -\ sm  a  =  fix  cos  a  +  fiySm  a  (V.19) 

m00  raoo 

makes  the  sum  of  residuals  Si  minimum. 

Proof. 

The  sum  of  the  squares  of  all  the  residuals  is 

n  2 

S  =  Y^wi((xicosa  +  yisina)  ~  r)  (V.20) 

Since  the  line  which  best  fits  the  set  of  points  is  supposed  to  minimize  S,  the  optimum 
line  (r,  a)  must  satisfy 

£-S- 


Thus, 


=    —2y^yWi((xi  cos  a  +  yjSina)  —  r) 


dr 


n  \  f   n  \  /   n 


and 


2  (  r  (  S  WA  ~  Wl  wixi  J  cos  o  -  iJ2  wiyl  J  sin  a  J 

2(r  ra0o  —  rnio  cos  a  —  jtiqi  sin  en)  =  0  (V.22) 


r  = cos  a  H sin  a  =  /i^cosa  +  //y  sino  (V.2J) 

m00  ^oo 
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where  r  may  be  negative.    Substituting  r  in  Equation  V.15  by  Equation  V.23,  we 
obtain 

—    =    2Y^^i({xi- f^x)  cos  a  +  (yl- fiy)  sin  aj(^- (x{- fix)  sin  a  +  (yl- i^y)  cos  a) 

n 

=    2j2wi  ({Vi  ~  Hy)2  ~  ixi  -  Mi)2)  sin  a  cos  a 

£=1 

n 

+2  ^2  wi{xl  -  fix){yi  -  fiy){cos2  a  -  sin2  a) 

2=1 

=    (M02  -  M20)sin2a  +  2M11cos2a  =  0  (V.24) 

Therefore, 

2a  =  atan2(-2Mn,  M02  -  M20)  (V.25) 

□ 
Thus,   the  value  of  2a  is  in  the  fourth  quadrant,    [— 7r,7r],   and  then  a   € 

[-7T/2,7T/2]. 

a.  Implementation 

The  program  code  developed  is  given  in  Appendix  F.  Figure  26  thru 
Figure  29  show  some  of  the  results  obtained  with  and  without  the  inclusion  of  weights. 
The  threshold  indicated  is  the  value  used  after  applying  the  Sobel  operator,  to  decide 
if  the  pixel  belongs  to  a  landmark  or  not.  The  maximum  0  difference  shown,  defines 
the  maximum  directional  difference  (in  degrees)  allowed  between  adjacent  pixels,  to 
be  considered  on  the  same  line. 

b.  Results 

Unfortunately,  there  is  not  a  significant  visual  improvement  when  in- 
cluding weights  to  justify  the  added  computational  burden.  However,  we  can  not 
discard  the  possibility  that  for  some  specific  cases  that  were  not  tested,  this  approach 
could  produce  better  results.  More  experimentation  is  needed. 
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Figure  26.  Results  without  Weights,  Threshold  =  100,  Max  <j>  Difference  =  22 


Figure  27.  Results  with  Weights,  Threshold  =  100,  Max  0  Difference  =  22 
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Figure  28.  Results  without  Weights,  Threshold  =  75,  max  <f>  difference  =  22 


Figure  29.  Results  with  Weights,  Threshold  =  75,  max  0  difference  =  22 
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2.       3D  MODELING 

Another  contribution  made  to  the  "Yamabico"  mobile  robot  system,  is  the 
modification  of  a  3D  modeling  program  to  simulate  rendering  of  views  by  a  camera 
that  can  be  positioned  at  different  locations  in  an  indoor  3D  model.  The  3D  mod- 
eling program  is  implemented  in  Lisp  and  is  listed  in  Appendix  G.  Figure  30  and 
Figure  31,  depict  some  frozen  frames,  rendered  camera  views.  The  3D  model  consists 
of  connected  edges. 

2nd  Floor 


Figure  30.  Frozen  Frame  1 
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2nd  Floor 


Figure  31.  Frozen  Frame  2 

o.         Extraction  of  2D  Features  from  Rendered  Model  Views 

Once  a  model  of  the  world  is  constructed,  we  still  need  to  find  what 
lines  in  the  model  are  visible,  at  different  viewpoints.  These  features  can  be  matched 
to  features  extracted  from  a  real  scene  to  update  the  robot's  position.  Recall  that 
we  detect  straight  line  segments.  After  analyzing  the  problem,  we  decided  that  just 
extracting  features  from  a  2D  top  view  of  the  3D  map  is  sufficient.  This  will  yield 
the  visible  vertical  lines  of  the  world,  which  can  be  matched  with  the  scene's  vertical 
edges.  Appendix  H  contains  the  program  to  find  the  visible  vertical  landmarks  of 
a  given  model.  Although  still  not  perfect,  the  program  produced  very  good  results 
for  a  large  set  of  cases,  as  shown  in  Figure  32  and  Figure  33.  The  C  represents  the 
camera  position  and  the  diamonds  (o)  represent  the  visible  vertical  lines. 
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Figure  32.  Second  Floor 
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Figure  33.  Second  Floor 

C.      MOTION  PLANNING 

The  non-linear  control  theory  presented  here  is  based  on  Professor's  Kanayama 
tracking  methods  presented  in  [Ref.  4,  5,  6].  All  the  simulation  results  presented  were 
actually  tested  on  the  autonomous  vehicle  "Yamabico"  (Figure  25). 

1.        Linear  and  Circular  Tracking 

Suppose  we  want  a  vehicle  in  a  certain  position  to  move  towards  a  line,  as 
shown  in  Figure  34. 

Let's  now  define  a  vehicle's  state  as  a  configuration  [Ref.  4], 


n 


♦4© <XX><5fig> £u£ $u£ O-O- 


9  =  (p,0,k), 


(V.26) 


where  p  denotes  its  (x,  y)  coordinates,  6  is  its  orientation  and  k,  is  its  instantaneous 
path  curvature. 
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Figure  34.  Principle  of  Path  Tracking 


The  equation  that  describes  motion  is  given  by 

-an  -  b(9  -  6X)  -  cAd, 


ds 


(V.27) 


where  s  is  the  arc  length,  a,  6,  c  are  positive  constants,  and  Ad  is  the  "signed" 
distance  from  p  to  L.  This  equation  with  its  negative  terms  represents  a  negative 
feedback  rule  that  we  called  the  steering  function.  The  first  negative  term,  —  an  is  a 
feedback  term  (a  damping  factor)  for  the  curvature,  the  second  term  —  b(6  —  9\)  is  a 
feedback  term  for  the  angle  error,  and  the  third  term  —cAd  is  a  feedback  term  for 
the  positional  error. 

As  shown  in  [Ref.  4],  a,  6,  c  can  be  defined  as 


a  =  3k,      b  =  3k2,      c  =  k3, 


(V.28) 


where  k  the  gain  of  the  steering  function.  A  better  way  of  visualizing  the  effects  of  k 
in  the  steering  function,  is  defined  by 


1 


(V.29) 


where  o  is  called  smoothness.  In  other  words,  if  a  is  large  we  have  a  smooth  trajectory 
and  if  a  is  small  we  have  a  sharper  trajectory,  as  shown  in  Figure  35. 

For  a  circular  tracking  situation  as  presented  in  Figure  36,  the  steering  has  to 
be  slightly  modified  (Equation  V.30). 


dK, 
ds 


~a(K  -  Ki)  -  b(9  -  0i)  -  cAd. 
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(V.30) 
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Figure  35.  Effect  of  Smoothness 


Circular  Reference 


Figure  36.  Tracking  a  Circle 

The  curvature  K\  is  now  the  curvature  of  the  circle  we  are  tracking  and  is  equal 
to  jj,  where  R  is  the  radius. 

As  proven  in  [Ref.  5]  we  have 


a    =    3k, 

b    =    3/c2-/^!2, 


(V.31) 
(V.32) 
(V.33) 


which  also  holds  for  the  linear  tracking.  The  parameter  a  is  still  defined  in  the  same 
way  as  before  and  has  similar  effect  as  shown  in  Figure  37. 
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Figure  37.  Circle  Tracking  for  a  —  1,  2, 4  (from  Left  to  Right) 

2.       Neutral  Switching 

Although  the  motion  resulting  from  the  use  of  the  steering  function  is  very 
smooth,  finding  the  right  point  to  leave  a  path  to  transition  to  another  is  a  problem. 

[Ref.  6]  states  that  for  a  smoother  path  change,  the  leaving  point  must  be  the 
one  where  the  steering  function  changes  its  sign.  In  other  words, 

dK 

—  =  -clAk  -  6A0  -  cAd  =  0.  (V.34) 

ds 

For  a  situation  like  Figure  38  where  A/c  =  0  and  A6  =  —  |  we  have 

Ad  =  -—  =  SA9a  =  4.712a.  (V.35) 

c 

We  have  for  Figure  38  the  following  leaving  points  for  the  same  smoothness 
{a  =  1.0):  (0,7),  (0,4.712),  (0,3.5),  (0,3),  (0,2.5),  (0,2),  (0, 1.5)  and  (0, 1). 

In  Figure  39,  we  show  the  curvature  plots  corresponding  to  Figure  38.  We  just 
labeled  the  curves  for  the  end  leaving  points  (pi  and  p2)  and  for  the  neutral  switching 
point  (pn),  to  preserve  readability  in  the  plots.  One  can  easily  see  that  the  curvature 
for  the  neutral  switching  point  (curve  pn)  has  smaller  values  and  also  that  its  sign 
never  changes  (compare  with  curves  p\  and  p2).  This  is  the  reason  why  the  neutral 
switching  principal  provides  smoother  control  of  a  vehicle. 
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Figure  38.  Trajectory  for  Leaving  Points  at  y  =  7,  4.712,  3.5,  3,  2.5,  2,  1.5  and  1. 
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Figure  39.   Curvature  Plots  for  Leaving  Points  at  y 
and  1. 


=  7,  4.712,  3.5,  3,  2.5,  2,  1.5 


Notice  that  for  the  leaving  points  y  =  4.712  (neutral  switching)  and  y  —  3.5, 
the  curves  in  the  x  x  y  plot  are  very  close  (y  =  4.712  is  the  furtherest  curve  from  the 
origin  and  y  =  3.5  is  the  one  that  follows  it).  However,  in  Figure  39  (y  —  3.5  is  the 
one  above  pn),  the  plot  s  x  k,  or  path  —  length  x  curvature,  shows  a  big  difference. 

An  interesting  point  found  during  this  research  is  that  for  the  leaving  points 
after  neutral  switching,  their  paths  have  a  maxima  curvature  close  to  the  same  point. 
Another  remarkable  issue  is  that  those  carves  also  cross  together  at  the  same  path 
length  value,  meaning  that  no  matter  how  late  you  leave,  you  will  always  have  the 
same  instant  curvature  at  the  same  traveled  distance  (for  a  fixed  a).  These  two 
characteristics  of  the  neutral  switching  control  theory  were  discovered  at  the  end  of 
this  research.  They  are  characteristics  that  deserve  future  examination.  Appendix  I 
shows  the  high  level  C  code  used  to  control  "Yamabico's"  motion,  using  this  theory. 
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VI.         CONCLUSION  AND  FUTURE  WORK 
A.      RECOGNITION/LOCALIZATION  SYSTEM 

This  work  shows  that  it  is  possible  to  use  computer  vision  techniques  for  UXO 
detection  with  good  accuracy  for  simple  scenes  and  limited  accuracy  for  complicated 
scenes.  Both  the  performance  and  the  accuracy  of  the  system  can  be  improved  in  a 
number  of  ways.  The  greatest  need  is  for  a  much  larger  set  of  training  data  which  will 
improve  the  accuracy  of  the  system.  Secondly,  experiments  in  the  extraction  of  high- 
order  features  such  as  boundaries  could  lead  to  improved  recognition  results  at  the 
cost  of  increased  processing  time.  The  results  indicate  that  our  scheme  is  much  better 
at  locating  than  identifying  objects.  The  use  of  more  global  features  for  identification 
may  be  necessary,  instead  of  the  local  ones  used  in  this  research. 

A  significant  increase  in  performance  could  be  achieved  through  the  fusion  of 
multiple  sensor  data  such  as  that  from  magnetometers  and  video.  It  is  important  to 
note  that  the  techniques  described  here  including  the  wavelet  feature  extraction  and 
the  neural  network  Stages  could  be  used  with  other  kinds  of  data. 

A  better  refined  template  scanning  scheme  is  another  avenue  of  future  research. 
Templates  could  be  created  to  optimally  detect  the  objects  in  the  database.  Since 
our  windows  are  all  rectangular  (oriented  along  the  axis),  more  errors  occurred  for 
objects  at  45°.  A  45°  oriented  template  would  greatly  improve  the  results  for  such 
situation. 

In  conclusion,  this  work  has  shown  that  the  proposed  recognition  system  utiliz- 
ing Wavelet  Feature  Extraction  and  Neural  Networks  is  promising  for  UXO  detection. 
Also,  this  work  has  demonstrated  that  images  can  be  used  as  sensory  input  for  UXO 
detection.  However,  more  experimental  work  is  needed  to  further  refine  the  system. 
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B.      NAVIGATION  SYSTEM 

The  work  done  in  Chapter  V  of  this  thesis  can  be  used  to  improve  a  robot's 
navigation.  This  is  especially  true  with  regards  to  the  neutral  switching  theory, 
which  was  implemented  for  the  first  time  on  a  robot  ("Yamabico")  and  resulted  in 
very  smooth  motion. 

Basically  we  found  the  following  important  observations  and  facts  in  the  area 
of  autonomous  navigation: 

•  The  inclusion  of  gradient  values  (weights)  in  the  edge  detection  algorithm  for 
grayscale  digital  images  does  not  significantly  improve  its  results.  Actually, 
this  result  is  attractive  to  us,  because  the  computationally  inexpensive  method 
we  are  current  using  is  enough  to  obtain  good  results. 

•  The  visibility  algorithm  gave  satisfactory  results  as  expected.  The  work  that 
should  immediately  follows  is  the  integration  of  the  image  understanding  ca- 
pability with  this  visibility  capability  into  the  current  "Yamabico"  software 
system. 

•  The  success  of  the  neutral  switching  function  is  a  big  mile  stone  for  autonomous 
vehicle  research.  Complex  motion  behavior  are  made  possible  for  "Yamabico" 
through  this  algorithm.  As  a  future  plan,  more  detailed  functions  should  be 
designed  and  implemented. 
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APPENDIX  A.  LISP  CODE  FOR  TRAINING  A 

NEURAL  NETWORK  (NN)  USING 

BACK-PROPAGATION 
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****************************************************************** 

File:  neuron. lisp 

Name : Jader  Gomes  da  Silva  Filho 

Date: 01/97 

Operating  Environment:  SUM 

Language:  LISP 
****************************************************************** 


Initial  values  for  the  weights  and  global  variable 

(defun  create_weights  (inp  out) 

;; constant  for  random  starting  weight 

(setf  RSW  1.0) 

; ;  initial  value  for  beta 
(setf  beta  0.1) 

(setf  SAVED.ERROR  (list_of  (length  inp)  (list.of  (length  (car  out))  0.5))) 

(setf  inp_wlist  '()) 
(do  ((  i  1  (+  i  1))) 

((  >  i  (length  (car  inp)))  'DONE) 
(setf  inp_wlist (append  inp_wlist 
(list 
(make_random_weight_list 
(length  (car  inp))  RSW))))) 
(setf  hid.wlist  '  0) 
(do  ((  i  1  (+  i  1))) 

((  >  i  (length  (car  out)))  'DONE) 
(setf  hid_wlist (append  hid.wlist 
(list 
(make_random_weight_list 
(length  (car  inp))  RSW))))) 
) 


Genetates  a  list  of  repeated  inputs  of  the  same  size  of 
the  weigth  list. 
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(defun  make_input_list  (input  w_list) 
(list_of  (length  w_list)  input)) 


this  provides  a  standard  activation 
function  for  a  neural  net — the  logistic 
sigmoid  function 
f(x)  =  1  /  (1  +  e  C-x)) 


(defun  sigmoid  (x) 

(/  (  +  1  (exp  (-  x))))) 


this  does  summation  on  a  vector 

>  (summation  vector) 

>  (summation  '(2.0  3.0  2.6)) 
7.6 


(defun  summation  (vector) 
(eval 

(cons  '+  vector))) 


this  does  multiplication  of  two  vectors 

>  (vector_multiply  ' (0  1  1)  '(-4.8  5.2  -2.3)) 
(0  5.2  -2.3) 


(defun  vector_multiply  (vectorl  vector2) 
(mapcar  #'*  vectorl  vector2)) 


this  does  multiplication  of  three  vectors 


(defun  vector_multiply3  (vectorl  vector2  vector3) 
(mapcar  #'*  vectorl  vector2  vector3)) 
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this  makes  a  list  n  elements  long  of  elt 

>  (list-of  3  2.0) 
(2.0  2.0  2.0) 


(defun  list_of  (n  elt) 
(if  (zerop  n) 
nil 
(cons  elt  (list_of  (  -  n  1)  elt)))) 


this  makes  a  weight  list  n  elements  long 

of  random  weights  between  -RSW  and  RSW  (random  starting  weight) 

(defun  make_random_weight_list  (n  rsw) 

(vector_sum  (mapcar  #'random  (list_of  n  (*  2  rsw))) 
(list.of  n  (-  rsw)))) 


this  does  sum  of  two  vectors 

>  (vector.sum  ' (0  1  1)  '(-4.8  5.2  -2.3)) 
(-4.8  6.2  -1.3) 


(defun  vector_sum  (vectorl  vector2) 
(mapcar  #'  +  vectorl  vector2)) 


Evaluates  one  node  according  to  a  list  of  inputs 
and  a  list  of  weigths  for  that  node 

>  (node.eval  '(0  0  1)  '(-4.8  4.6  -2.6)) 

0.06913843 

(defun  node_eval  (inputs  weigths) 

(sigmoid  (summation  (vector_multiply  inputs  weigths)))) 


Evaluates  one  level,  generating  a  list  of  values 
that  will  be  the  input  for  the  next  level 

>  (level_eval  ' (0  0)  inp_wlist) 
(0.06913843  0.03916572) 
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(defun  level_eval  (input  w_list) 

(mapcar  #'node_eval  (make_input_list  input  w_list)  w_list)) 


CALCULATE  ERROR  VECTOR  FOR  OUTPUT  NODES 
this  compares  calculated  output  with 
expected  output .  And  save  the  errors  in  the 
variable  SAVED_ERR0R_0UT 

>  (calc_output_error  '(1.0  0.0)  '(0.88  0.13)  ) 
(+0.12  -0.13) 


(defun  calc_output_error  (exp_output  calc_output) 

(setf  SAVED_ERR0R_0UT 
(mapcar  #'-  exp_output  calc_output))) 


CALCULATE  DELTA  WEIGHT 

delta_weight  =  b  *  E  *  w 
Note  that  the  elements  are  vectors 
(defun  calculate_delta_weight  (beta.shift  error  arc_weight) 
(vector_multiply3  beta_shift  error  arc_weight)) 


CALCULATE  ERROR  ONE  HIDDEN  NODE 


(defun  calculate_f inal_error_one_hidden  (incoming_error  node_value) 
(*  incoming_error  (-  1  node_value)  node_value)) 


CONVERT  WEIGHT.LIST  TO  BACKPROP_WEIGHT  LIST 
conv_weight_list 
(defun  conv_weight_list  (x) 
(apply  'mapcar  #'list  x)) 


Does  the  usual  forward  evaluation,  saving  the  values 
of  the  hidden  level 
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; ;   conv_weight_list 

(defim  forward_eval  (input  w_listl  w_list2) 
(setf  OUTPUT  (level_eval  (setf  SAVED.HID 
(level_eval  input  w_listl))  w_list2)) 
) 


Does  a  node  evaluation  in  a  back  propagation 

(defun  node_eval_back  (inputs  weigths) 

(summation  (vector_multiply  inputs  weigths)) 
) 


Does  the  level  evaluation  in  the  back  propagation, 

including  the  derivative 
(defun  level_eval_back  (input_back  w_list  saved_level) 
(mapcar  # ' calculate_f inal_error_one_hidden 

(mapcar  #'node_eval_back  (make_input_list  input _back  w_list)  w_list) 
saved_level) 
) 


Creates  a  list  of  the  beta  values  in  the  same 
format  of  the  weights  list  given 

(defun  list_beta  (beta_shift  w_list) 

(list_of  (length  w_list)  (list_of  (length(car  w_list))  beta_shift))) 


Function  that  applies  calculate_delta_weight  over 

each  element  of  the  three  lists. 

Note  that  each  element  are  also  a  list 
(defun  calc_delta_weight  (beta_list  error_list  weight_list) 

(mapcar  #'calculate_delta_weight  beta_list  error_list  weight_list) 
) 


Calculates  the  new  weights  by  just  summing  the 
delta  with  the  old  weights 

(defun  calc_new_weight  (delta_list  w_list) 
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(mapcar  #' vector. sum  delta_list  w_list) 
) 


Function  that  calculates  the  new  weigths 

(defun  backeval  (w_list  error_list  income_value  input) 
(calc_new_weight 
(calc_delta_weight 
(list_beta  beta  w_list) 

(conv_weight_list(list_of  (length  input)  error_list  )) 
(list_of  (length  w_list)  income_value)) 
w_list 
) 
) 


output  results 

(defun  print .results  (input  output) 

(setf  resultname  (make-pathname  :name  "weilist.dat")) 

(setf  outfile  (open  resultname  : direction  : output  : if -exists  : rename 

:if-does-not-exist  : create)) 
(format  outfile  "~7,mean_error :  ~A~7."  (mean_error  SAVED_ERROR) ) 

(format  outfile  ""'/.Input :  ~A~°/,Exp_Output  :~A~°/,Input  Weights:  ~A~7.Hidden  Weights:  "A" 
input  output  inp_wlist  hid_wlist) 
(format  outfile  "~7.CALC_0UTPUT:  ~A~7,"0UTPUT_LIST) 
(close  outfile) 


(setf  resultname  (make-pathname  :name  "weights. lisp")) 

(setf  outfile  (open  resultname  : direction  : output  : if -exists  : rename 

:if-does-not-exist  : create)) 
(format  outfile  "~7.(setf  inp.wlist  '~A)~7.(setf  hid.wlist  '"A)~7," 
inp_wlist  hid_wlist) 
(close  outfile) 

'DONE 

) 


; ;  function  user  to  calculate  the  square  root  of  the 
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; ;  mean  of  the  errors 
(defun  inp_error  (w_list) 

(sqrt(summation(vector_multiply  w_list  w_list)))) 


function  user  to  calculate  the  mean  error  of  several 
inputs 
(defun  mean_error  (w_list) 

(/  (summation  (mapcar  #Jinp_error  w_list)) 
(length  w_list)) 


) 


function  user  to  calculate  the  back  prop  of  a 
single  input 

(defun  calc_sing_inp  (inp  out) 

(setf  inp_wlist 
(backeval  inp_wlist  (level_eval_back  (calc_output_error  out 
(f orward_eval  inp  inp_wlist  hid_wlist)) 
(conv_weight_list  hid.wlist)  SAVED_HID)  inp 
inp) 
) 

(setf  hid_wlist 
(backeval  hid.wlist  SAVED_ERR0R_0UT  SAVED.HID  inp) 
) 

(setf  SAVED.ERROR  (append  SAVED_ERROR  (list  SAVED_ERR0R_0UT) ) ) 
(setf  OUTPUT.LIST  (append  OUTPUT.LIST  (list  OUTPUT))) 
) 


function  for  loading  weights  from  previous  training 

(defun  load_weights  (weights) 

(setf  weightname  (make-pathname  :name  weights)) 

(with-open-f ile  (str  weightname  : direction  : input  : if-does-not-exist  : error) 
(do  ((expression  (read  str  nil  '  eof) 
(read  str  nil  'eof))) 

((eql  expression  'eof)) 
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(eval  expression))) 


Main  function 

NOTE:  This  reuses  the  previous  calculated  weights 

to  the  current  single  input 

(defun  main  (input  output) 

(create_weights  input  output) 
;;   (load.weights  "weights .lisp") 

(setf  pathname  (make-pathname  :name  "mean.txt")) 

(with-open-f ile  (str  pathname  : direction  : output  : if-does-not-exist  : create 

: if -exists  : rename)) 
(setf  temp_error  '2.0) 
(setf  ERROR  (mean.error  SAVED_ERR0R) ) 
(do  ((  i  1  (+  i  1))) 

((  <  ERROR  0.02)  (print_results  input  output)) 

(setf  SAVED.ERROR  '()) 

(setf  OUTPUT.LIST  '()) 

(mapcar  #'calc_sing_inp  input  output) 

(setf  ERROR  (mean.error  SAVED_ERR0R) ) 

(cond 

<  ERROR  0.01) (setf  beta  0.005)) 

<  ERROR  0.05) (setf  beta  0.02)) 

<  ERROR  0.1) (setf  beta  0.025)) 

<  ERROR  0.2) (setf  beta  0.03)) 

<  ERROR  0.3) (setf  beta  0.045)) 

<  ERROR  0.4) (setf  beta  0.05)) 

<  ERROR  0.5) (setf  beta  0.055)) 
t         (setf  beta  0.06))) 

(setf  temp_error  ERROR) 

(if  (zerop  (rem  i  10)) 
(format  t  "~y,mean_error :  ~A~7,Iteration  ~A~°/,beta:  ~A~°/," 
(mean_error  SAVED_ERROR)  i  beta)) 

(if  (zerop  (rem  i  200)) 
(print .results  input  output)) 
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(with-open-f ile  (str  pathname  : direction  : output  : if -exists  : append 
if-does-not-exist  :  create) 

(format  str  "~A  ~A  ~A"7,"  i  (mean_error  SAVED_ERROR) 
beta)) 

) 
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APPENDIX  B.  PROLOG  CODE  OF  A  NEURAL 

NETWORK 
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/*  Language   :  Quintus  Prolog  Release  3.1.1  */ 

/*  Description:  Program  to  implement  a  3-layer  NN  with  15  inputs,  */ 

/*  15  hidden  nodes  and  5  output  nodes.  */ 

/*  Authors    :  Prof.  Neil  Rowe  and  Jader  Filho  */ 

/*  Last  Update:  03/24/1997  */ 
/** *****************************************************************/ 
assert_weights  :-  abolish(strength/3) ,abolish(strength/2) , 

assertz(strength(hid_node,l, 
[0 . 10280146 , 1 . 0383518 , -0 . 15337943 , 13 . 348852 , 0 .2140507 , -4 . 999327 , 
1 1 . 041899 , -1 . 376764 , 9 . 722739 , -2 . 674495 , 7 . 643388 ,-0.1 1498318 , 
-0 . 74958926 , 1 . 1124623 , 1 . 2203351] ) ) , 

assertz (strength (hid.node , 2 , [1 . 3599663 , 2 .0130012 , -5 . 7742586 , -6 .  144408 , 
-0 . 3617554 , 0 . 49077615 , 4 . 2990837 , -1 . 3255733 , -0 . 10300044 , 1 . 7859062 , 
-2 . 1418078 , -0 . 8528033 , -0 . 87857527 , 1 . 8577701 , -0 . 6500677] ) )  , 

assertz (strength (hid_node , 3 , [7 . 299552 ,-0.1 1480039 , 4 . 1539264 , -5 . 954579 , 
1 . 9724478 , 0 . 8563504 , 2 . 554235 , 3 . 1276588 , -5 . 577703 , -7 . 7033744 , 0 . 9631491 , 
-0 .31658006 , 1 . 1658579 , -0 . 7200168 , -0 . 8751486] ) ) , 

assertz (strength (hid_node , 4 , [2 . 352219 , 0 . 9798964 , 7 . 387131 , -4 . 302696 , 
1 .  3159721 , -4 . 255448 , -2 . 22221 14 , 7 . 3860474 , -0 . 110816374 , -0 . 15095304 , 
1 . 3264731 , 1 . 761269 , -1 . 9182163 , -0 . 08970505 , 2 . 1381326] ) )  , 

assertz ( strength (hid.node , 5 , [0 . 97137606 , 2 . 0978968 , -1 . 5668068 , 5 .  3624883 , 
-0 . 3900549 , 0 . 7947839 , -4 .413633 , 1 . 5507306 , -0 . 6049893 , -0 . 5473221 , 
1 . 7741257 , 0 .7199787 , -1 . 7051593 , 1 . 9850469 , 0 . 3874647] ) )  , 

assertz (strength (hid.node , 6 , [-7 . 5278397 , -3 . 1371894 , 6 . 8534527 , 9 . 540047 , 
3 . 971589 , 6 . 7969294 , 9 . 477654 , -1 . 8458934 , -13 . 109152 , -2 . 2465706 , 
-15 . 705089 , 1 . 2939371 , 1 . 7863597 , -0 . 2075032 , 0 . 7623969] ) )  , 

assertz (strength (hid_node , 7 , [-1 . 5873216 , -1 . 033604 , -1 . 7575526 , 
-11. 586975 , 1 . 1679307 , -2 .6128724 , 2 . 420472 , -0 . 14453241 , 1 . 3027858 , 
-2 . 2243912 , 9 . 150505 , -0 . 76785827 , 0 . 19931579 , -0 . 36563465 , 1 . 6281044]  ) )  , 

assertz (strength (hid_node, 8, [-11  580848,3.8350782,3.5109222, 
4 . 163468 , -3 . 4610188 , -5 . 8272057 , -4 .719808 , 5 . 126142 , 3 . 3443942 , 
-0 . 88241 , 10 . 71 1 175 , 2 . 0836523 , 0 . 4301 1373 , 0 . 7488813 , -2 . 1782956] ) )  , 

assertz (strength (hid_node, 9, [-11 . 183245,-2.8265104,-3.0190945, 
3  .  825569 , -9 . 887493 , -8 . 926091 , -8 . 578522 , -9 . 81599 , 10 . 6942625 , 
5 . 7835407 , 1 . 2130237 , 1 . 3198781 , -1 . 6814234 , -0 . 7457888 , -0 . 3643858] ) )  , 

assertz (strength(hid_node , 10 , [-9 . 208287 , -0 .5136238 , 2 . 4696598 , 1 . 4010974 , 
-3 . 0033565 , -10 . 368849 , -5 . 825708 , 8 .918923 , 5 . 9908056 , 2 . 074206 , 
24 . 38145 , 0 . 3551642 , -0 . 046705514 , -0 . 271937 , 1 . 8054696] ) ) , 

assertz (strength (hid_node , 11 , [5 . 5495863 , -1 . 3832068 , 15 .012902 , 
-0 . 87178606 , -1 . 5800465 ,2 . 5315452 , -1 . 6559813 , -9 .013141 , 3 . 2857537 , 
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-3 .6133842 , 11 . 880634 , -0 . 42965722 , 3 .214854 , 0 . 019956164 , -1 . 1296868] ) )  , 

assertz (strength (hid.node , 12 , [9 . 189349 , 9 . 68774 , 7 . 1437473 , 2 . 5421433 , 
-0 . 31797215 , -1 . 2867705 , 0 . 6343578 , 5 . 5447206 , 4 . 213276 , -8 . 133626 , 
-5 . 8887916 , 1 . 5713207 , -0 . 4948193 , -1 . 6689208 , -0 . 98711646] ) ) , 

assertz (strength (hid_node , 13 , [11 . 598041 , -0 . 612225 , -9 . 021371 , -11 . 469496 , 
1 . 5119609 , 0 . 075839214 , 1 . 7730261 , -1 . 4520669 , -5 . 056494 , -0 . 42691928 , 
1 . 5322973 , 1 . 5731288 , 1 . 2850229 , -0 . 81217283 , 0 . 45320952] ) )  , 

assertz (strength (hid.node , 14 , [3 . 8388643 , 1 . 3650446 , -3 . 2947173 , 5 .2161503 , 
-5 . 5149713 , -5 . 4758544 , -4 . 51567 , -7 . 87467 , 3 . 2831373 , 1 . 8662292 , 
6 . 1908507 , 0 . 41444215 , 3 . 1471112 , 0 . 6712416 , 0 . 34379712] ) )  , 

assertz (strength (hid_node , 15 , [4 . 03495 , 0 . 12459024 , -1 . 4378815 , - 13 . 7728405 , 
2 . 6996377 , 5 . 941888 , 7 . 072829 , -8 . 149348 , 1 . 1662475 , -3 . 691 1345 , 8 . 328426 , 
-0 . 24888588 , 0 . 25269714 , 1 . 4399127 , 3 . 127232] ) ) , 

assertz (strength (out _node , [ [6 . 545533 , 5 . 7997675 , -1 . 7047756 , -4 . 082592 , 
4 . 3749847 , 0 . 9555788 , 5 . 227637 , 1 . 7942159 , -0 . 114222795 , 6 . 661545 , 
7 . 2471204 , 0 . 33012316 , 5 . 5946555 , 1 . 5604621 , -12 . 4767685] ,  [1 . 9401 18 , 
2 . 018785 , -1 . 3316723 , -1 . 7319521 , 3 . 1654818 , 10 . 293487 ,-14. 334564 , 
8 . 87022 , -8 . 368377 , - 12 . 34091 , 4 . 4616256 , 4 . 8475647 , -2 . 2759478 , 
0 . 46862486 , 6 . 626953] , [-6 . 262649 , 1 . 4892993 , 3 . 0227327 , -0 . 91400874 , 
2 . 423398 ,  -14 . 339465 ,  -16 . 798841 , 14 . 285471 , -7 . 921312 , 7 . 9008074 , 
4 . 1938386 , 10 . 859216 ,4 . 2084055 , -5 . 5930195 , 1 . 3791995] , [-8 . 259792 , 
-4 . 4346175 , 12 . 238324 , 5 . 9989915 , 2 . 793125 ,  -10 . 320029 , 1 . 0851719 , 
-3 . 8516119 , -7 . 3822327 , -5 . 060156 , 0 . 2045436 ,-11. 65261 , -5 . 4408092 , 
13 . 733666 , 13 . 449633] , [-2 . 0871668 , -1 . 1725345 , -10 . 751292 , -7 . 295434 , 
-0 . 7270514 , 12 . 000224 , -14 . 410152 , 0 . 3804165 , 0 . 47677583 , 4 . 5853095 , 
1 1 . 158862 , -9 . 278686 , 7 . 908131 , -2 . 4952629 , 6 . 78489] ] ) ) . 


:-ensure_loaded (library (math)) , ensure_loaded( library (maplist)) 
ensure_loaded (library (lists)) ,  ensure_loaded( 'f ig5.tmp') , 
ensure_loaded( 'identity') ,assert_weights. 


go(000)  :-  tell (results) ,neural_net (0) ,  maplist (nice_read,0, 00) , 
maplist(nicelist,00,000) ,  maplist (nicew, 000) ,told. 

nicew([K,X])  :-  write ('Shape  ') ,writeq(K) , write ( '  is:  ('), 

maplist (nicewbit.X) , write ('  )  ') , identity (X, ID) , 
writeq(ID) , ! ,nl. 
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nicew( [K,X] )  . 

nicewbit(X)  :-  write ('  ') ,writeq(X) . 

nicelist([K,X],[K,NX])  :-  maplist(conv_int ,X,NX) . 

conv_int(X,NX)  :-  (X<0.5)  ->  NX  is  0  I  NX  is  1. 

neural_net(00) :-  mid_level_out (ML) ,    strength (out _node,W) , length (W,Y) , 
list.of (ML.Y.Z) ,maplist(neur,Z,W,YY) transpose (YY, 00) . 

mid_level_out(ML)    :-  bagof ( [SN,0] ,mid_level( [SN,0] ) ,ML) . 

mid.levell (IL , SL)    : -   input.list (hid_node , SN , IL)  , 
corresponding_strengths (hid_node , IL , SL) . 

mid_level([SN,0])  :-  input_list(hid_node,SN,IL) , 

corresponding_strengths(hid_node,IL,SL) ,  neuron_eval(IL,SL,0) . 

inp_bag  :-  tell (out) .bagof (IL,SN~input_list(hid_node,SN,IL) ,ML) , 
maplist (lisp_input ,ML) ,nl,fail . 

lisp_input(X)  :-  write( ' ( ') , maplist (lisp_inputl ,X) , write ( '  )'),nl. 
lisp_inputl([K,X])  :-write('  ') ,writeq(X) . 

inp_bag  :-  told. 

input.list (C , SN , IL)  : -  bagof (  [K , X] , input (C , K , SN , X) , IL) . 


-  shape(SN,A,_,_,_,_,_,_),sqrt(A,XX),X  is  XX/15 

-  shape(SN,_,C,B,_,_,_,_),X  is  B/(B+C). 

-  shape(SN,_,_,_,[_,_,_,_,X, _],_,_,_). 

-  shape(SN,_,_,_,[_,_,_,_,_,X], _,_,_). 

-  shape (SN,_,_,_,_,[R,G,B I _],_,_), 


input (hid_node , 1 , SN , X) 
input (hid_node , 2 , SN , X) 
input (hid_node , 3 , SN , X) 
input (hid_node , 4 , SN , X) 
input (hid_node , 5 , SN , X) 

X  is  (R+G+B)/2000. 
input (hid.node , 6 , SN , X)  : -  shape (SN ,_,_,_,_, [R I _],_,_) , 

X  is  R/650. 
input (hid.node , 7 , SN , X)  : -  shape (SN ,_,_,_,_,[_, G I _],_,_) , 

X  is  G/650. 
input(hid_node,8,SN,X)  :-  shape (SN,_ ,_,_,_, [_,_,B  I  _],_,_) , 

X  is  B/650. 
input(hid_node,9,SN,X)  :-  shape(SN, _,_,_,_,_, XX, _) ,X  is  XX/500 . 
input (hid_node , 10 , SN , X)  :  -  shape (SN ,_,_,_,_,[_,_,_, SR , SG , SB  I _],_,_) , 
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X  is  (SR+SG+SB)/50. 
input (hid_node , 1 1 , SN , X) 
input (hid_node , 12 , SN , X) 
input (hid_node , 13 , SN , X) 
input (hid.node , 14 , SN , X) 
input (hid_node , 15 , SN , X) 


shape(SN,A,_ 
shape(SN,A,_ 
shape(SN,A,_ 
shape (SN,A,_ 
shape(SN,A,_ 


LXX ,_,_,_,_ 
I —  >  XX ,_,_,_ 
I —  > - »XX , _ , _ 


I —  >  _  >  _  >  XX , _ 
I —  ,_>_,_»  XX 


_]),x 
_]),x 
J),x 

_]),x 
_]),x 


is  XX/A 

is  XX/A 

is  XX/A 

is  XX/A 

is  XX/A 


nice_read(I, [X,Y])    :-  transposed,  [[XI XX]  ,Y])  . 

corresponding_strengths(C, [],[]). 

corresponding.strengths (C , [ [K , X] I IL] , [S I SL] )    : -  strength (C , K , S) , ! , 
corresponding_strengths (C , IL , SL) . 


list_of([],L,[]). 
list_of(M,0,  [])  . 
list_of(M,l, [M]). 
list.of (M,L, [Ml  ML]) 


-  LL  is  L-l, list.of (M,LL, ML),! 


member(X,L)    :-  append (_,  [X I _] ,L) . 

neur([]  ,_,[]). 

neur([[K,X] |XX] ,Y,  [[K,Z] I ZZ] ) :-  maplist (mult ,X,Y,Z1) ,sumup(Zl ,SUM) , 
sigmoid (SUM, Z),    ! ,neur(XX,Y,ZZ) . 

mult(X,Y,Z)     :-   Z  is  X*Y. 

sumup ( [Item] , Item) . 

sumup(  [ItemlList]  ,Sum)  :-  sumup  (List  ,Partsum) ,  Sum  is  Partsum+Item. 

neuron.eval  (IL ,[],[]). 

neuron_eval(IL, [ELI WL] ,[0100])  :-  neuron(IL,EL,0) ,  !,  neuron.eval (IL,WL, 00) 

neuron(IL,WL,0)  :-  node_eval(IL,WL,RO) ,  sigmoid(R0,0) . 

node_eval([]  ,  []  ,0)  . 

node_eval([[K,X] I IL] ,[S|SL],P)    :-  node_eval(IL,SL,P2) ,    P  is  P2+(S*X) . 
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node_eval([X|IL] ,[S|SL],P)  :-  node_eval(IL,SL,P2) ,  P  is  P2+(S*X) 
sigmoid (X,Y)  :-  XX  is  -1*X,  exp(XX,YY) ,Y  is  1/(1+YY). 
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APPENDIX  C.  REGIONS  EXTRACTED  OF  AN 

IMAGE 
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Regions  (shapes)  extracted  from  Figure  7  by  the  Feature  Extraction  Program 
[Ref.  1]: 

shape ( 1 , 278 , 45 , 50 , [1 , 1 , 41 , 10 , 0 . 672 , 0 . 917] , [848 . 655 , 853 . 058 , 842 . 784 , 48 . 28 , 

55.762,61.311,67.182,-0.554,0.17] , 105 .344, [47. 048, 0.366, 3. 317, 6,0, o] ) . 

shape(2, 493, 117, 23, [40, 1,86, 17, 0.16, 0.832], [663. 862, 610. 069, 582. 138, 51. 039, 

52 . 286 , 59 . 567 , 121 . 599 , 0 . 008 , 0 . 156] , 123 . 099 , [94 . 213 , 0 . 37 , 4 . 62 , 11 , 1 , o] ) . 

shape(3, 87, 24, 19, [53, 1,71, 8, 0.094, 0.94], [819. 713, 817. 954, 796. 264, 22. 087, 

25 . 83 , 36 . 713 , 66 . 173 , -0 . 287 , -0 . 095] , 148 . 086 , [26 . 041 , 0 . 456 , 2 . 892 , 2 , 0 , o] ) . 

shape (4 , 5989 , 540 , 242 , [1 , 1 , 110 , 88 , 0 . 058 , 0 . 053] , [813 . 709 , 805 . 441 , 774 . 308 , 

50 . 457 , 67 . 9 , 73 . 765 , 89 . 904 , 0 . 045 , 0 . 34] , 155 . 262 , [288 . 2 1 , 0 . 287 , 3 . 341 , 

36,9,o]). 

shape (5 , 41 , 30 , 0 , [90 , 3 , 104 , 6 , 0 . 752 , 0 . 908] , [727 . 268 , 663 . 829 , 641 . 439 , 

29 . 686 , 41 . 122 , 41 . 645 , 76 . 388 , 0 . 26 1 , 0 . 321] , 10 1 . 607 , [3 1 . 549 , 0 . 222 , 

0.555,2,0,c]) . 

shape (6, 449, 118, 12, [1,4,45,22,0.602,0.719] ,[674.548,646.038,615.37,66.05, 

71.78,82.613,133.459,-0.1,0.243] , 150. 196 , [119.912,0 .349,4.376, 16,0, o] ) . 

shape (7 , 204 , 62 , 0 , [58 , 26 , 80 , 39 , 0 . 244 , 0 . 276] , [674 . 167 , 612 . 917 , 570 . 917 , 52 . 208 , 

54 . 834 , 62 . 344 , 119 . 918 , 0 . 269 , -0 . 52] , 134 . 525 , [63 . 808 , 0 . 361 , 3 . 09 , 10 , 1 , c] ) . 

shape(8, 23, 14, 5, [1,32, 7, 36, 0.95, 0.234] ,[657.826,640.087,602.391,28.106, 

32 . 336 , 39 . 417 , 94 . 349 , 0 . 058 , 0 . 02] , 1 10 . 229 , [14 . 146 , 0 . 32 , 3 . 956 , 1 , 0 , o]  ) . 

shape (9, 101, 39, 5,  [95,36,110,45,0.86,0.068] , [693.129,626.475,582.545,41.357, 

33 . 095 , 44 . 039 , 100 . 049 , 0 . 091 , -0 . 188] , 104 . 579 , [39 . 406 , 0 . 247 , 3 . 224 , 

3,l,o]). 

shapeUO, 558, 133,0, [39, 37, 66, 76, 0.02, 0.251], [466. 19, 333. 389, 251. 222, 50. 419, 

62 . 019 , 63 . 829 , 115 . 373 , 0 . 332 , 0 . 245] , 237 . 639 , [142 . 844 , 0 . 353 , 2 . 871 , 

18,1,  c]). 

shape ( 1 1 , 71 , 36 , 0 , [66 , 39 , 74 , 50 , 0 . 252 , 0 . 0 16] , [572 . 732 , 487 . 972 , 443 . 437 , 

44 . 348 , 52 . 718 , 59 . 354 , 115 . 552 , 0 . 224 , -0 . 135] , 132 . 608 , [37 . 621 , 0 . 343 , 

3.056,4,l,c]) . 

shape(12, 101, 53,0, [40, 40, 61, 49, 0.068, 0.004], [667. 04, 598. 366, 541. 812, 

60.479,83.558,98.276,175.31,0.027,0.0] ,169.743, [55.908,0.369, 

2.582,8,l,c]) . 

shape (13 , 115 , 47 , 0 ,  [71 , 40 , 87 ,49 , 0 . 415 , 0 . 004] , [630 . 035 , 563 . 513 , 519 . 609 , 

41 . 538 , 51 . 233 , 56 . 188 , 106 . 783 , 0 . 442 , 0 . 011] , 99 . 857 , [48 . 964 , 0 . 298 , 

3. 08, 5, 2, c]). 

shape ( 14 , 69 , 38 , 0 ,  [91 , 41 , 106 , 5 1 , 0 . 774 , 0 . 063] , [722 . 377 , 652 .159,615. 203 , 

39 . 96 , 38 . 065 , 43 . 247 , 100 . 638 , -0 . 149 , -0 . 282] , 1 1 1 . 373 ,  [41 . 21 1 , 0 . 429 , 

2.459,3,l,c])  . 

shape ( 15 , 57 , 45 , 0 , [23 , 43 , 39 , 5 1 , 0 . 448 , 0 . 037] , [678 . 509 , 608 . 719 , 547 . 877 , 36 . 067 , 

26 . 915 , 46 . 803 , 82 . 866 , -0 . 443 , -0 . 179] , 123 . 037 , [48 . 034 , 0 . 391 , 3 . 925 , 10 , 

2,c]). 
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shape(16,48,35,0, [35,44,48,55,0.294,0.115] , [580.125,484.5,420.75,45.856, 

41 . 351 , 41 . 569 , 88 . 188 , 0 . 224 , -0 . 426] , 104 . 671 , [41 . 06 , 0 . 384 , 2 . 5 , 5 , 1 , c] ) . 

shape ( 17 , 18 , 10 , 6 , [1 , 46 , 3 , 51 , 0 . 973 , 0 . 091] , [646 . 0 , 589 . 333 , 524 . 167 , 50 . 047 , 

56 . 949 , 52 . 321 , 122 . 755 , 0 . 546 , -0 . 417] , 147 . 224 , [9 . 627 , 0 . 217 , 4 . 897 , 0 , 0 , o] ) . 

shape ( 18 , 92 , 42 , 0 , [28 , 46 , 39 , 57 , 0 . 427 , 0 . 163] , [619 . 76 1 , 546 . 587 , 484 . 5 , 44 . 445 , 

51 . 547 , 58 . 81 , 1 19 . 91 1 , -0 . 1 , -0 . 191] , 105 . 127 , [42 . 662 , 0 . 332 , 2 . 745 , 4 , 2 , c] ) . 

shape (19, 313, 89, 12, [47,63,76,88,0.059,0.731] , [742.677,708.786,663.978, 

72 . 554 , 103 . 744 , 111 . 509 , 141 . 487 , -0 . 418 , -0 . 413] , 221 . 277 , [95 . 888 , 0 . 363 , 

3.307,10,0,0]). 

shape (20 , 56 , 37 , 0 , [61 , 65 , 66 , 81 , 0 . 164 , 0 . 634] , [582 . 554 , 498 . 768 , 435 . 929 , 81 . 116 , 

99 . 608 , 116 . 033 , 206 . 514 , 0 . 213 , 0 . 217] , 232 . 437 , [39 . 788 , 0 . 265 , 1 . 393 , 

2,l,c]). 

shape (21, 371, 147, 4, [20, 68, 59, 88, 0.285, 0.794] ,[673.31,638.668,598.528, 

61 . 291 , 76 . 491 , 89 . 743 , 138 . 089 , 0 . 164 , 0 . 109] , 145 . 861 , [1 15 . 834 , 0 . 313 , 

4.12,14,4,0]). 

shape (22 , 1 15 , 44 , 0 ,  [24 , 76 , 39 , 86 , 0 . 445 , 0 . 856] , [524 . 783 , 457 . 8 17 , 40 1 . 939 , 45 . 479 , 

51 . 306 , 63 . 537 , 103 . 258 , 0 . 268 , 0 . 082] , 151 . 837 , [46 . 239 , 0 . 343 , 1 . 991 , 3 , 1 , c] ) . 

shape (23, 31, 17, 14,  [51 ,86,64,88,0.051,0.973] , [567.032,494.645,438.71,29.46, 

31 . 244 , 27 . 79 , 71 . 366 , 0 . 091 , 0 . 042] , 118 . 429 , [17 . 152 , 0 . 278 , 3 . 793 , 0 , 0 , o] ) . 
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APPENDIX  D.  C  CODE  FOR  EXTRACTING 
WAVELET  FEATURES  AND  SCANNING  AN 

IMAGE 
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/**************************************************************************** 

File:  trainset.c 

Name :  Jader  Gomes  da  Silva  Filho 
Date:  05/97 

Operating  Environment:  Windows  95 
Compiler:  MS  Visual  C++ 

Description:  Program  used  to  extract  features  from  a  image 
******************************************************************** 

/* Include  necessary  definitions  */ 

#include  <stdio.h> 
#include  <stdlib.h> 
#include  <string.h> 
#include  <mil.h> 
#include  <math.h> 
#include  "wtn.h" 
#include  "daub4.h" 
#include  "nrutil.h" 
#include  "util.h" 


void  main(void) 
{ 

MIL_ID  MilApplication; 

MIL_ID  MilSystem; 

MIL_ID  MilGraphld; 

MIL_ID  MilDisplayO; 

MIL_ID  MilDisplayl; 

MIL_ID  MilDisplay2; 

MIL_ID  MilDisplay3; 

MIL.ID  MilDisplay4; 

MIL_ID  Disp_Level_4; 

MIL_ID  MillmageO; 

MIL.ID  Millmagel; 

MIL.ID  Millmage2; 

MIL_ID  Millmage3; 

MIL_ID  Millmage4; 

MIL_ID  Level_4; 

long 

long 


/*  Application  identifier.  */ 
/*  System  identifier.  */ 
/*  Graphics  context  identifier 


*/ 


/*  Display  0  identifier.    */ 
/*  Display  1  identifier     */ 
/*  Display  2  identifier     */ 
/*  Display  3  identifier     */ 
/*  Display  4  identifier     */ 
/*  Display  level_4  identifier.  */ 
/*  Image  0  buffer  identifier.  */ 
/*  Image  1  buffer  identifier.  */ 
/*  Image  2  buffer  identifier.  */ 
/*  Image  3  buffer  identifier.  */ 
/*  Image  4  buffer  identifier.  */ 
/*  Image  level_4  buffer  identifier 
ImageSizeX=IMAGE_WIDTH;   /*  Image  width.  */ 
ImageSizeY=IMAGE_HEIGHT;  /*  Image  height.*/ 


*/ 


unsigned  char  *tiff_data; 
unsigned  char  *init_data; 
/*  unsigned  char  *back_data; 


/*  Tiff 

image 

*/ 

/*  Tiff 

image 

*/ 

Tiff 

image 

*/ 
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unsigned  char 

double 

double 

double 

char 

char 

char 

char 

char 

unsigned  long 

int 

double 

char 

int 

int 

int 

unsigned  long 

Feature_Node 

unsigned  char 

int 

int 

double 

Training_List 


*mod_tiff_d; 
♦wavelets; 
*wbuf ; 
*level_wbuf ; 


/*  Tiff  image  */ 

/*  Wavelets     */ 

/*  Tmp  wavelet  buffer  */ 

/*  Level4  of  wavelets  */ 


*Image_f ile;  /*  Name  of  Image  file  */ 

Image_list [STRING]  =  "newonel.txt"; 

training.f ile [STRING]  =  "resultl/training" ; 

id_f ile [STRING]  =  "resultl/id" ; 
♦name; 

dim  [2] ={IMAGE_WIDTH ,  IMAGE_HEIGHT} ; 
i,  j  ,elim=0; 

max, min, factor , limit ; 
*Wave_file  =  "result 1/waveout .tif" ; 
h_level_size  =  IMAGE_WIDTH/(pow(2,LEVEL)) ; 
v_level_size  =  IMAGE_HEIGHT/(pow(2,LEVED) ; 
indice; 

dim_w[2]={h_level_size,v_level_size};  /*  for  level4  inverse  transj 
*output_level; 
*level_tiff_d; 
wlevel  =  LEVEL; 

angle  =  0,  step.angle  =  STEP_ANGLE; 
level_max,  level_min; 
♦names,  *first_file; 


int  k  =  0,  num_files; 
/* 

* Initialize  MIL 

* 

*/ 

/*  Allocate  Arrays  */ 

Image_file  =  (char  *)  malloc (STRING*sizeof (char)) ; 

name      =  (char  *)  malloc (STRING*sizeof (char)) ; 

init_data  =  (unsigned  char  *) 

malloc (ImageSizeX*ImageSizeY*IMAGE_BAND) ; 
tiff_data  =  (unsigned  char  *) 

malloc (ImageSizeX*ImageSizeY*IMAGE_BAND) ; 
mod_tiff_d  =  (unsigned  char  *) 

malloc (ImageSizeX*ImageSizeY*IMAGE_BAND) ; 
wavelets  =  (double  *) 

malloc (ImageSizeX*ImageSizeY*IMAGE_BAND*sizeof (double) ) ; 
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wbuf  =  (double  *) 

malloc (ImageSizeX*ImageSizeY*IMAGE_BAND*sizeof (double) ) ; 
output_level  =  (Feature_Node  *) 

malloc (SIZE_LIST*sizeof (Feature_Node) ) ; 


if  ((init.data  ==  NULL)  II  (tiff .data  ==  NULL)  II  (mod_tiff_d  ==  NULL)  I  I 
(wavelets  ==  NULL)  II  (wbuf  ==  NULL)  II  (output_level  ==  NULL)){ 
printfC'Out  of  memory\n"); 
exit(O) ; 
} 

/*  Allocate  defaults.  */ 
MappAllocDefault(M_SETUP,  feMilApplication,  feMilSystem, 

&MilDisplayO,M_NULL,  M.NULL) ; 
MdispAlloc (MilSyst em , M_DEV1 , M.DISPLAY.SETUP , M.DEFAULT , 

feMilDisplayl) ; 
MdispAlloc (MilSystem , M.DEV2 , M.DISPLAY.SETUP , M.DEFAULT , 

&MilDisplay2) ; 
MdispAlloc (MilSystem , M.DEV3 , M.DISPLAY.SETUP , M.DEFAULT , 

&MilDisplay3) ; 
MdispAlloc (MilSystem , M.DEV4 , M.DISPLAY.SETUP , M.DEFAULT , 

&MilDisplay4) ; 
MdispAlloc (MilSystem , M.DEV6 , M.DISPLAY.SETUP , M.DEFAULT , 

&Disp_Level_4) ; 
/*  Find  the  best  size  for  the  display  image  depending  on  the  display  type.  * 
if  (MdispInquire(MilDisplayO,M_DISP_MODE,M_NULL)==M_WINDOWED) 
{ 

/*  Smallest  possible.  */ 
ImageSizeX  =  IMAGE.WIDTH; 
ImageSizeY  =  IMAGE.HEIGHT; 
}else{ 

/*  The  size  of  the  entire  display  to  avoid  possible  display  artifact.  */ 
ImageSizeX  =  min(MdispInquire(MilDisplayO,M_SIZE_X,M_NULL) , 

M.DEF.IMAGE.SIZE.X.MAX) ; 
ImageSizeY  =  min(MdispInquire(MilDisplayO,M_SIZE_Y,M_NULL) , 
M.DEF.IMAGE.SIZE.Y.MAX) ; 
} 
/*  Allocate  a  two-dimensional  image  buffer  to  perform  graphics  in  it.  */ 
MbufAlloc2d(MilSystem, 
ImageSizeX, 
ImageSizeY, 
IMAGE.DEPTH+M.UNSIGNED ,  M.IMAGE+M.DISP+M.PROC , 
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&MilImageO) ; 
MbufAlloc2d(MilSystem, 

ImageSizeX, 

ImageSizeY, 

IMAGE_DEPTH+M_UNSIGNED ,  M_IMAGE+M_DISP+M_PROC , 

&Mil Image 1) ; 
Mbuf Alloc2d (MilSystem , 

ImageSizeX, 

ImageSizeY, 

IMAGE_DEPTH+M_UNSIGNED ,  M_IMAGE+M_DISP , 

&MilImage2) ; 
MbufAlloc2d(MilSystem, 

ImageSizeX, 

ImageSizeY, 

IMAGE_DEPTH+M_UNSIGNED ,  M_IMAGE+M_DISP+M_PROC , 

&MilImage3) ; 
MbufAlloc2d(MilSystem, 

ACTUAL_WIDTH , 

ACTUAL_HEIGHT, 

IMAGE_DEPTH+M_UNSIGNED ,  M_IMAGE+M_DISP+M_PROC , 

&MilImage4) ; 
MbufAlloc2d(MilSystem, 

h_level_size, 

v_level_size, 

IMAGE_DEPTH+M_UNSIGNED ,  M_IMAGE+M_DISP , 

&Level_4) ; 

/*  Enable  keying  on  display  if  its  supported.    */ 
if    ((M_DEF_DISPLAY_KEY_ENABLE_ON_ALLOC    !=  0)   && 

Mdisplnquire (MilDisplayO ,M_DISP_KEY_SUPPORTED , 0) ) 
MdispOverlayKey (MilDisplayO , M_KEY_0N_C0L0R , M_EQUAL , 
OxFFL,M_DEF_DISPLAY_KEY_COLOR) ; 

/*** Load  original   image**/ 

num_files  =  load_names_and_types(Image_list ,    &f irst_f ile) ; 
names  =  first_file; 

for (wlevel=LEVEL ;    wleveKLEVEL+LEVEL.NIVEL ; wlevel++) { 

h_level_size   =   IMAGE_WIDTH/(pow(2,wlevel)) ; 
v_level_size   =  IMAGE_HEIGHT/(pow(2,wlevel)) ; 
dim_w[0]    =  h_level_size; 
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dim_w[l]    =  v_level_size; 

level_wbuf     =   (double  *) 

malloc (h_level_size*v_level_size*IMAGE_BAND*sizeof (double) )  ; 
level_tiff_d     =    (unsigned  char  *) 

malloc (h_level_size*v_level_size*IMAGE_BAND) ; 
if    ((level.wbuf   ==  NULL)    II    (level.tif f_d  ==  NUL-DH 

printfC'Out   of  memory\n")  ; 

exit(O)  ; 
} 

printf  ("\nProcessing  level  °/.d.\n",  wlevel)  ; 

init_write_lisp_training(training_f ile , wlevel) ; 

do  { 

strcpy(Image_f ile,names->f ile_name) ; 
strcpy (name, Image_f ile) ; 
strcat (Image_f ile, " .tif ") ; 
printf  ("\n7,s\n"  , name) ; 

/*  Clear  Buffers  */ 
Mbuf Clear (MillmageO , BACK) 
Mbuf Clear (Millmagel , BACK) 
Mbuf Clear (Millmage2 , BACK) 
Mbuf Clear (Millmage3 , BACK) 
Mbuf Clear (Millmage4 , BACK) 
Mbuf Clear (Level_4, BACK) ; 


/*  Load  the  images  from  the  file.  */ 

Mbuf Import (Image.f ile,  M_TIFF,  M_L0AD,  MilSystem,  &MilImage4)  ; 

MimTranslate(MilImage4,  MillmageO,  (IMAGE_WIDTH  -  ACTUAL_WIDTH)/2, 
(IMAGE_HEIGHT  -  ACTUAL_HEIGHT) /2 ,  M_DEFAULT) ; 

MdispSelect(MilDisplayO,  MillmageO) ; 
printf  ("\nlmage  7,d  displayed. \n"  ,  k+1) ; 


/* Compute  wavelet  transform*/ 
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for (angle  =  0;  angle  <  360;  angle  +=  step_angle){ 
printf ("\nProcessing  angle  °/.d.\n",  angle); 

MbufGet(MilImageO,tiff_data) ; 

copy_char_to_double (tif f _data , wavelets) ; 

log_of (wavelets) ; 

wtn (wavelets, dim, 2, l,daub4) ; 

max  =  min  =  wavelets [0] ; 

for(i=0;i  <  IMAGE.WIDTH;  i++) 

for(j=0;  j  <  IMAGE_HEIGHT;  j++){ 
if (wavelets [j*IMAGE_WIDTH+i]  >  max) 

max  =  wavelets [j *IMAGE_WIDTH+i] ; 

if (wavelets [j*IMAGE_WIDTH+i]  <  min) 

min  =  wavelets [j *IMAGE_WIDTH+i] ; 


printf  ("Max  wavelet  Coeff  =  7,f\n"  ,max) ; 

printf  ("Min  wavelet  Coeff  =  °/0f\n"  ,min) ; 

if(fabs(max)  >  fabs(min))  limit  =  fabs(max); 

else  limit  =  fabs(min); 

/*  Display  wavelets  */ 

factor  =  (double) Oxffff /limit ; 

copy_double_to_char_rev(wavelets,mod_tiff_d, factor) ; 

display_buff er_on_screen(&MilDisplayl ,&MilImagel , 
mod_tiff _d, "\nWavelets  displayed. " ,0) ; 

/♦recovering  the  original  picture  with  the  inverse  DWT*/ 

copy_double_to_double (wavelets, wbuf) ; 

wtn (wbuf , dim ,2,-1, daub4) ; 

copy_double_to_char(wbuf ,mod_tiff_d, 1.0); 

display _buffer_on_screen(&MilDisplay2,&MilImage2,mod_tiff_d, 

"\nRestored  Image  displayed. " ,0) ; 
MgraAlloc (MilSystem , feMilGraphld) ; 
MgraColor(MilGraphId,0) ; 
/*  Box  around  current  level  */ 
MgraRect(MilGraphId,MilImagel ,h_level_size,v_level_size, 

2*h_level_size-l , 2*v_level_size-l) ; 
MdispSelect (MilDisplayl ,  Millmagel) ; 

/*  building  the  level  buffer*/ 
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level_max  =  level_min  =  fabs (wavelets [v_level_size* 

IMAGE_WIDTH+h_level_size] ) ; 
for(i=h_level_size;i  <  h_level_size*2;  i++) 
for(j=v_level_size; j  <  v_level_size*2;  j++){ 

indice  =  (j-v_level_size)*h_level_size+i-h_level_size; 
level.wbuf [indice]  =  wavelets [j *IMAGE_WIDTH+i] ; 
if (fabs (wavelets [j*IMAGE_WIDTH+i] )  >  level.max) 

level.max  =  fabs (wavelets [j *IMAGE_WIDTH+i] ) ; 

if (fabs (wavelets  [j*IMAGE_WIDTH+i] )  <  level_min) 

level_min  =  fabs (wavelets [j *IMAGE_WIDTH+i] ) ; 

} 
printf ("Max  level_wavelet  Coeff  =  %f  \n"  ,level_max)  ; 
printfC'Min  level_wavelet  Coeff  =  °/,f  \n"  ,level_min) ; 

normalize (level_wbuf,  level_max/MAX_VALUE,  h_level_size ,  v_level_size) ; 

write_wav_level_to_disk(level_wbuf ,  name,  wlevel,  angle, 
h_level_size,  v_level_size) ; 

copy_double_to_char_rev_level (level_wbuf , level_t if f _d .factor , 

h_level_size,  v_level_size) ; 

f ind_list_highest (level_wbuf ,  output_level , 

h_level_size,  v_level_size) ; 
printf ("\nM); 
for  (i  =  0;  i  <  SIZE.LIST  ;  i++){ 

printf  ("\nx  =  °/.5.3f,  y  =  °/,5.3f,  value  =  °/,5.3f ,  mean  =  °/.5.3f,  variance  =  c/,5.# 
output_level [i] . point . x ,  output_level  [i] . point . y , 
output _level[i] .value,  output_level[i] .mean, 
output_level[i] .variance) ; 
} 

printf  (*'\n"); 

write_wav_level_high_to_disk(output_level,  name,  wlevel,  angle, 
h_level_size,  v_level_size) ; 

write_lisp_training(output_level,  name,  wlevel,  angle,  training_f ile) ; 

Mbuf Export (Wave_f ile,  M_TIFF,  Millmagel) ; 

Mbuf Clear (MillmageO, BACK) ; 

MimRotate(MilImage4,  MillmageO,  angle+step_angle ,  M_DEFAULT, 

M_DEFAULT,  M.DEFAULT,  M_DEFAULT,M_BICUBIC) ; 
MdispSelect(MilDisplayO,  MillmageO) ; 
} 
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k++; 
}while( (names  =  names->next)  !=  NULL); 
free(level_wbuf ) ; 
free (level.tif f_d) ; 

end_write_lisp_training(training_file,  num_files,  first_file,  wlevel) ; 
write_lisp_id_f ile(id_f ile,  num_files,  first_file,  wlevel); 


> 


/* Clean  Up*/ 

/*  Disable  keying  on  display  if  its  supported.  */ 
if  ((M_DEF_DISPLAY_KEY_DISABLE_ON_FREE  !=  0)  && 

Mdisplnquire (MilDisplayO, M_DISP_KEY_SUPPORTED,0)) 
MdispOverlayKey (MilDisplayO , M_KEY_OFF , M.NULL , M_NULL , M_NULL) ; 
/*  Release  subimages  and  color  image  buffer.  */ 
Mbuf Free (MillmageO) 
MbufFree(Millmagel) 
Mbuf Free (Millmage2) 
Mbuf Free (Millmage3) 
Mbuf Free (Millmage4) 
Mbuf Free (Level_4) ; 
/*  Release  defaults.  */ 
MdispFree (MilDisplayl) 
MdispFree (MilDisplay2) 
MdispFree (MilDisplay3) 
MdispFree (MilDisplay4) 
MdispFree (Disp_Level_4) ; 

MappFreeDefaultCMilApplication,  MilSystem,  MilDisplayO,  M_NULL,  M_NULL) ; 
free(output_level) ; 
free_f ile_list(&f irst_f ile) ; 
return; 
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/**************************************************************************** 

File:  scanning. c 

Name :  Jader  Gomes  da  Silva  Filho 

Date:  05/97 

Operating  Environment:  Windows  95 

Compiler:  MS  Visual  C++ 

Description:  Scans  an  image  generating  a  file  with  a  set  of  feature  vectors 
*********************************************************************** 

* Include  necessary  definitions  */ 

#include  <stdio.h> 
#include  <stdlib.h> 
#include  <string.h> 
#include  <mil.h> 
#include  <math.h> 
#include  "wtn.h" 
#include  "daub4.h" 
#include  "nrutil.h" 
#include  "util.h" 


void  main(void) 
{ 

MIL_ID  MilApplication; 

MIL.ID  MilSystem; 

MIL.ID  MilGraphld; 

MIL_ID  MilDisplayO; 

MIL.ID  MilDisplayl; 

MIL.ID  MilDisplay2; 

MIL_ID  MilDisplay3; 

MIL_ID  MilDisplay4; 

MIL.ID  Disp_Level_4; 

MIL.ID  MillmageO; 

MIL.ID  Millmagel; 

MIL.ID  Millmage2; 

MIL.ID  Millmage3; 

MIL.ID  Millmage4; 
MIL.ID  Level_4; 

long 

long 


/*  Application  identifier.  */ 
/*  System  identifier.  */ 
/*  Graphics  context  identifier. 


*/ 


/*  Display  0  identifier.    */ 
/*  Display  1  identifier     */ 
/*  Display  2  identifier     */ 
/*  Display  3  identifier     */ 
/*  Display  4  identifier     */ 
/*  Display  level_4  identifier.  */ 
/*  Image  0  buffer  identifier.  */ 
/*  Image  1  buffer  identifier.  */ 
/*  Image  2  buffer  identifier.  */ 
/*  Image  3  buffer  identifier.  */ 
/*  Image  4  buffer  identifier.  */ 
/*  Image  level_4  buffer  identifier. 
ImageSizeX=IMAGE_WIDTH;   /*  Image  width.  */ 
ImageSizeY=IMAGE_HEIGHT;  /*  Image  height.*/ 


*/ 


unsigned  char  *t iff .data; 
unsigned  char  *init_data; 

/*  unsigned  char  *back_data: 
unsigned  char  *mod_tiff_d; 


/*  Tiff  image  */ 
/*  Tiff  image  */ 
Tiff  image  */ 
/*  Tiff  image  */ 
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double 

double 

double 

char 

char 

char 

char 

char 

unsigned  long 

int 

double 

char 

int 

int 

int 

unsigned  long 

Feature_Node 

unsigned  char 

int 

double 

char  *names; 

int  k  =  0,  num 


♦wavelets;       /*  Wavelets     */ 

*wbuf ;  /*  Tmp  wavelet  buffer  */ 

*level_wbuf;     /*  Level4  of  wavelets  */ 
*Image_f ile;  /*  Name  of  Image  file  */ 

Image.list [STRING]  =  "newonel.txt"; 

test_f ile [STRING]  =  "result3/scan" ; 

win_id  [STRING]  =  *'result3/win_id"  ; 
*name ; 

dim [2] ={IMAGE_WIDTH ,  IMAGE.HEIGHT} ; 
i, j ,elim=0; 

max, min, factor, limit ; 
*Wave_file  =  "result3/waveout3.tif "  ; 
h_level_size  =  IMAGE_WIDTH/(pow(2,LEVEL))  ; 
v_level_size  =  IMAGE_HEIGHT/(pow(2,LEVEL)) ; 
indice; 

dim_w[2]={h_level_size,v_level_size};  /*  for  level4  inverse  trans: 
*output_level; 
*level_tiff_d; 
wlevel  =  LEVEL; 
level_max,  level_min; 

_f iles; 


/* 


* Initialize  MIL 


*/ 


/*  Allocate  Arrays  */ 

Image.file  =  (char  *)  malloc(STRING*sizeof (char)) ; 

name      =  (char  *)  malloc(STRING*sizeof (char)) ; 

init_data  =  (unsigned  char  *) 

malloc (ImageSizeX*ImageSizeY*IMAGE_BAND) ; 
tiff_data  =  (unsigned  char  *) 

malloc (ImageSizeX*ImageSizeY*IMAGE_BAND) ; 
mod_tiff_d  =  (unsigned  char  *) 

malloc (ImageSizeX*ImageSizeY*IMAGE_BAND) ; 
wavelets  =  (double  *) 

malloc (ImageSizeX*ImageSizeY*IMAGE_BAND*sizeof (double)) ; 
wbuf  =  (double  *) 

malloc (ImageSizeX*ImageSizeY*IMAGE_BAND*sizeof (double) ) ; 
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output_level  =  (Feature_Node  *) 

malloc (SIZE_LIST*sizeof (Feature_Node) ) ; 


if  ((init.data  ==  NULL)  II  (tiff .data  ==  MULL)  II  (mod.tiff.d  ==  NULL)  || 
(wavelets  ==  NULL)  II  (wbuf  ==  NULL)  I  I  (output.level  ==  NULL)){ 
printfC'Out  of  memory\n") ; 
exit(O) ; 
} 

/*  Allocate  defaults.  */ 
MappAllocDefault(M_SETUP,  feMilApplication,  &MilSystem, 

&MilDisplayO,M_NULL,  M.NULL) ; 
MdispAlloc (MilSystem , M.DEVI , M.DISPLAY.SETUP , M.DEFAULT , 

&MilDisplayl) ; 
MdispAlloc (MilSystem , M.DEV2 , M.DISPLAY.SETUP , M.DEFAULT , 

&MilDisplay2) ; 
MdispAlloc (MilSystem , M.DEV3 , M.DISPLAY.SETUP , M.DEFAULT , 

&MilDisplay3) ; 
MdispAlloc (MilSystem , M.DEV4 , M.DISPLAY.SETUP , M.DEFAULT , 

&MilDisplay4) ; 
MdispAlloc (MilSystem , M.DEV6 , M.DISPLAY.SETUP , M.DEFAULT , 

&Disp_Level_4) ; 

/*  Find  the  best  size  for  the  display  image  depending  on  the  display  type.  *: 
if  (Mdisplnquire (MilDisplayO ,M_DISP_MODE , M.NULL) ==M_WINDOWED) 
{ 

/*  Smallest  possible.  */ 
ImageSizeX  =  IMAGE.WIDTH; 
ImageS izeY  =  IMAGE.HEIGHT ; 
}else{ 

/*  The  size  of  the  entire  display  to  avoid  possible  display  artifact.  */ 
ImageSizeX  =  min (Mdisplnquire (MilDisplayO, M.SIZE.X, M.NULL) , 
M.DEF.IMAGE.SIZE.X.MAX) ; 
ImageSizeY  =  min (Mdisplnquire (MilDisplayO, M.SIZE.Y, M.NULL) , 
M_DEF.IMAGE_SIZE_Y.MAX) ; 
} 
/*  Allocate  a  two-dimensional  image  buffer  to  perform  graphics  in  it.  */ 
MbufAlloc2d(MilSystem, 
ImageSizeX, 
ImageSizeY, 

IMAGE_DEPTH+M_UNSIGNED ,  M_IMAGE+M_DISP+M_PROC , 
&MilImageO) ; 
Mbuf Alloc2d (MilSystem , 
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ImageSizeX, 

ImageS izeY, 

IMAGE_DEPTH+M_UNSIGNED , 

&Mil Image 1) ; 
MbufAlloc2d(MilSystem, 

ImageSizeX, 

ImageSizeY, 

IMAGE_DEPTH+M_UNSIGNED , 

&MilImage2) ; 
MbufAlloc2d(MilSystem, 

ImageSizeX, 

ImageSizeY, 

IMAGE_DEPTH+M_UNSIGNED , 

&MilImage3) ; 
MbufAlloc2d(MilSystem, 

ACTUAL.WIDTH , 

ACTUAL.HEIGHT, 

IMAGE_DEPTH+M_UNSIGNED , 

&MilImage4) ; 
MbufAlloc2d(MilSystem, 

h_level_size, 

v_level_size, 

IMAGE_DEPTH+M_UNSIGNED , 

&Level_4) ; 


M_IMAGE+M_DISP+M_PROC , 


M_IMAGE+M_DISP, 


M_IMAGE+M_DISP+M_PROC , 


M_IMAGE+M_DISP+M_PROC , 


M_IMAGE+M_DISP, 


/*  Enable  keying  on  display  if  its  supported.  */ 
if  ((M_DEF_DISPLAY_KEY_ENABLE_ON_ALLOC  !=  0)  && 

Mdisplnquire (MilDisplayO , M_DISP_KEY_SUPPORTED , 0) ) 
MdispOverlayKey (MilDisplayO , M_KEY_0N_C0L0R , M.EQUAL , 
OxFFL,M_DEF_DISPLAY_KEY_COLOR) ; 

num_files  =  load_names(Image_list ,  fenames) ; 

for (wlevel=LEVEL ;  wleveKLEVEL+LEVEL.NIVEL ; wlevel++) { 

h_level_size  =  IMAGE_WIDTH/(pow(2,wlevel))  ; 
v_level_size  =  IMAGE_HEIGHT/(pow(2,wlevel)) ; 
dim_w[0]  =  h_level_size; 
dim_w[l]  =  v_level_size; 

level_wbuf  =  (double  *) 

malloc (h_level_size*v_level_size*IMAGE_BAND*sizeof (double) ) ; 
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level_tiff_d     =    (unsigned  char  *) 

malloc (h_level_size*v_level_size*IMAGE_BAND) ; 
if    (Qevel_wbuf  ==  NULL)    II    (level_tiff_d  ==  NULL)){ 

printfC'Out   of  memory\n"); 

exit(O) ; 
} 

printf  ("\nProcessing  level  °/,d.\n",  wlevel) ; 

/*init_write_lisp_test (test_f ile , wlevel) ; */ 

for (k=0 ; k<num_f iles ; k++) { 

strcpy(Image_file,names+k*STRING) ; 
strcpy (name, Image_f ile) ; 
strcat (Image_f ile, " .tif ") ; 
printf  ("\n°/,s\n"  ,name)  ; 

/*  Clear  Buffers  */ 
Mbuf Clear (MillmageO , BACK) 
Mbuf Clear (Millmagel, BACK) 
Mbuf Clear (Millmage2 , BACK) 
Mbuf Clear (Millmage3 , BACK) 
Mbuf Clear (Millmage4 , BACK) 
Mbuf Clear (Level_4, BACK) ; 


/*  Load  the  images  from  the  file.  */ 

Mbuf Import (Image_f ile,  M_TIFF,  M_L0AD,  MilSystem,  &MilImage4) ; 

/*  Translate  the  original  image  .  */ 

MimTranslate(MilImage4,  MillmageO,  (IMAGE.WIDTH  -  ACTUAL_WIDTH) /2 , 
(IMAGE.HEIGHT  -  ACTUAL_HEIGHT)/2,  M.DEFAULT) ; 

MdispSelect (MilDisplayO,  MillmageO) ; 
printf ("\nlmage  °/.d  displayed. \n" ,  k+1) ; 

/* 

* Compute  wavelet  transform 
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*/ 

Mbuf Get (MillmageO, tiff .data) ; 

copy_char_to_double(tiff_data, wavelets) ; 
log_of (wavelets) ; 
wtn (wavelets, dim, 2, l,daub4) ; 
max  =  min  =  wavelets [0]; 
for(i=0;i  <  IMAGE.WIDTH;  i++) 
for(j=0;  j  <  IMAGE.HEIGHT;  j++){ 
if (wavelets [j*IMAGE_WIDTH+i]  >  max) 

max  =  wavelets  [j *IMAGE_WIDTH+i] ; 

if (wavelets [j*IMAGE_WIDTH+i]  <  min) 

min  =  wavelets  [j*IMAGE_WIDTH+i] ; 


} 


printfC'Max  wavelet  Coeff  =  °/.f\n"  ,max) ; 

printfC'Min  wavelet  Coeff  =  7,f\n",min); 

if(fabs(max)  >  fabs(min))  limit  =  fabs(max); 

else  limit  =  fabs(min); 

/*  Display  wavelets  */ 

factor  =  (double) Oxf fff /limit ; 

copy_double_to_char_rev (wavelets , mod_t if f _d , factor ) ; 

display_buffer_on_screen(&MilDisplayl,&MilImagel , 
mod_tiff _d, "\nWavelets  displayed. " ,0) ; 

/♦recovering  the  original  picture  with  the  inverse  DWT*/ 
copy_double_to_double (wavelets ,wbuf ) ; 
wtn (wbuf , dim ,2,-1, daub4) ; 
copy_double_to_char(wbuf ,mod_tiff_d,l .0) ; 
/*    display_buffer_on_screen(&MilDisplay2,&MilImage2, 
mod_tiff_d, "\nRestored  Image  displayed. " ,0) ;*/ 

MgraAlloc(MilSystem,&MilGraphId) ; 

MgraColor(MilGraphId,0) ; 

/*  Box  around  current  level  */ 

MgraRect (MilGraphld.Millmagel ,h_level_size,v_level_size, 
2*h_level_size-l,2*v_level_size-l) ; 

/*  Box  around  level  1 
MgraRect (MilGraphld.Millmagel , IMAGE_WIDTH/2 , IMAGE_HEIGHT/2 , 
IMAGE.WIDTH-1 , IMAGE_HEIGHT-1) ; */ 
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MdispSelect(MilDisplayl,  Millmagel) ; 

/*  building  the  level  buffer*/ 

level_max  =  level_min  =  fabs (wavelets [v_level_size* 
IMAGE_WIDTH+h_level_size]) ; 

for(i=h_level_size;i  <  h_level_size*2;  i++) 
for(j=v_level_size; j  <  v_level_size*2;  j++){ 

indice  =  (j-v_level_size)*h_level_size+i-h_level_size; 
level_wbuf [indice]  =  wavelets [j *IMAGE_WIDTH+i] ; 
if (fabs (wavelets [j*IMAGE_WIDTH+i] )  >  level_max) 

level.max  =  fabs (wavelets [j *IMAGE_WIDTH+i] ) ; 

if (fabs (wavelets [j*IMAGE_WIDTH+i] )  <  level_min) 

level_min  =  fabs (wavelets [j *IMAGE_WIDTH+i] ) ; 

} 

printfC'Max  level_wavelet  Coeff  =  7.f  \n"  ,level_max) ; 
printf  ("Min  level_wavelet  Coeff  =  °/,f\n"  ,level_min) ; 

normalize (level_wbuf,  level_max/HIST_VALUE,  h_level_size,  v_level_size) ; 

histogram (level_wbuf,  wlevel,  HIST_VALUE) ; 

normalize (level_wbuf,  HIST_VALUE/MAX_VALUE,  h_level_size,  v_level_size) ; 

write_wav_level_to_disk(level_wbuf ,  name,  wlevel,  2, 
h_level_size,  v_level_size) ; 

copy_double_to_char_rev_level (level_wbuf , level_t if f _d .factor , 
h_level_size,  v_level_size) ; 

/*  MbufPut(Level_4,level_tiff_d) ; 
display_buf f er_on_screen(&Disp_Level_4 ,&Level_4 , 
level_tiff_d, "\nLevel_Wbuf  displayed. " ,0) ; 
*/ 

find_list .highest (level_wbuf,  output_level ,  h_level_size, 
v_level_size) ; 

for  (i  =  0;  i  <  SIZE_LIST  ;  i++){ 
printf  ("\nx  =  '/.5.3f,  y  =  °/„5.3f,  value  =  7.5. 3f ,  mean  =  7.5. 3f,  variance  =  7,5. 3f" 

output_level[i] . point. x,  output_level[i] . point. y, 

output_level[i] .value,  output_level[i] .mean, 

output_level[i] .variance) ; 
} 
printf ("\n"); 
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write_wav_level_high_to_disk(output_level,  name,  wlevel,  2, 
h_level_size,  v_level_size) ; 

/*write_lisp_test (output_level,  name,  wlevel,  test_f ile) ;*/ 
scan_picture(level_wbuf ,  output_level,  wlevel,  h_level_size, 
v_level_size,  name,  win_id) ; 

Mbuf Export (Wave_f ile,  M_TIFF,  Millmagel) ; 

} 

free(level_wbuf) ; 

free(level_tiff_d) ; 


/*end_write_lisp_test(test_f ile,  wlevel) ;*/ 


} 


/*  Clean  Up  */ 

/*  Disable  keying  on  display  if  its  supported.  */ 

if  ((M_DEF_DISPLAY_KEY_DISABLE_ON_FREE  !=  0)  && 

Mdisplnquire (MilDisplayO ,M_DISP_KEY_SUPPORTED , 0) ) 
MdispOverlayKey (MilDisplayO , M_KEY_0FF , M_NULL , M_NULL , M_NULL)  ; 
/*  Release  subimages  and  color  image  buffer.  */ 
Mbuf Free (MillmageO) 
Mbuf Free (Millmage 1 ) 
Mbuf Free (Millmage2) 
Mbuf Free (Millmage3) 
Mbuf Free (Millmage4) 
Mbuf Free (Level_4) ; 
/*  Release  defaults.  */ 
MdispFree (MilDisplayl) 
MdispFree (MilDisplay2) 
MdispFree (MilDisplay3) 
MdispFree (MilDisplay4) 
MdispFree (Disp_Level_4) ; 

MappFreeDefault(MilApplication,  MilSystem,  MilDisplayO,  M_NULL,  M_NULL) ; 
free(output_level) ; 
free (names) ; 
return; 
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File:  util.h 

Name:  Jader  Gomes  da  Silva  Filho 
Date:  05/97 

Operating  Environment:  Windows  95 
Compiler:  MS  Visual  C++ 
************************************************************** 

#include  "mil.h" 

#define  IMAGE_WIDTH  512L 

#define  IMAGE.HEIGHT         512L 

#define  ACTUAL.WIDTH         512L 

#define  ACTUAL.HEIGHT        512L 

#define  IMAGE_DEPTH    8L 

#define  IMAGE.BAND    1L 

#define  SIZE_LIST     10 

#define  STEP.ANGLE   360 

#define  LEVEL    3 

#define  LEVEL_NIVEL    1 

#define  SCAN.WIN    2 

#define  SCAN.STEP   2 

#define  SWAP(x,y)  {int  t;t=x;x=y;y=t;} 

#define  FALSE    0 

#define  TRUE     1 

#define  STRING  256 

#define  BACK   128L 

#define  MAX_VALUE   10. OF 

#define  HIST.VALUE   4000. OF 

typedef  struct  point  { 

double  x,y; 
}  Point; 

typedef  struct  feature_node  { 

Point  point; 

double  value; 

double  mean; 

double  variance; 
}  Feature_Node ; 

typedef  struct  training_list{ 
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char  *file_name; 
int  same_type; 
struct  training_list 
♦next; 
}  Training_List ; 

void  write_wavelets_to_disk (double  *coef,char  *name) ; 

void  write_message_and_pause(char  *message) ; 

void  display_buffer_on_screen(MIL_ID  *Display,  MIL_ID  *Image, 

unsigned  char  *data,  char  *message, 
int  wait) ; 

void  copy_double_to_double (double  *in,  double  *out) ; 

void  copy_double_to_double_level (double  *in,  double  *out,  int  h_size,  int  v_size) ; 

void  copy_double_to_char_rev (double  *in,  unsigned  char  *out, double  scale); 

void  copy_double_to_char_rev_level (double  *in,  unsigned  char  *out, double  scale, 
int  h_size,  int  v_size) ; 

void  copy_double_to_char (double  *in,  unsigned  char  *out, double  scale); 

void  copy_double_to_char_level (double  *in,  unsigned  char  *out, double  scale, 
int  h_size,  int  v_size) ; 

void  copy_char_to_double (unsigned  char  *in,  double  *out) ; 

void  find_list .highest (double  *in,  Feature_Node  *out,  int  h_size,  int  v_size) ; 

void  write_wav_level_to_disk (double  *in,  char  *name,  int  level,  int  angle, 

int  h_size,  int  v_size) ; 
void  write_wav_level_high_to_disk(Feature_Node  *feature_list ,  char  *name, 

int  level,  int  angle,  int  h_size,  int  v_size) ; 
void  find_list_lowest (double  *in,  Feature_Node  *feature_list , 

int  h_size,  int  v_size) ; 
void  log_of (double  *inout) ; 

Point  calc_centroid(Feature_Node  *feature_list ,  int  level); 
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int  load_names_and_types(char  *f ile_list ,Training_List  **names_list) ; 

void  normalize (double  *inout,  double  factor,  int  h_size,  int  v_size) ; 

void  init_write_lisp_training(char  *file,  int  level); 

void  write_lisp_training(Feature_Node  *feature_list ,  char  *name, 
int  level,  int  angle,  char  *f ile) ; 

void  end_write_lisp_training(char  *file,  int  num_files,  Training_List  *names, 
int  level) ; 

void  write_lisp_id_f ile (char  *file,  int  num.files,  Training_List  *names, 
int  level) ; 

int  load_names(char  *file_list,  char  **names) ; 

void  free_f ile_list(Training_List  **names_list) ; 

int  Int (double  value); 

/*********************************************************************/ 

/*  Phase  2  -  Testing  */ 

void  init_write_lisp_test(char  *file,  int  level); 

void  write_lisp_test(Feature_Node  *feature_list ,  char  *name, 

int  level,  char  *f ile) ; 
void  end_write_lisp_test(char  *file,  int  level); 

/*  Phase  3  -  Scanning  */ 

void  histogram (double  *in,  int  level,  double  leveljmax) ; 

void  scan_picture (double  *in,  Feature_Node  *out,  int  level,  int  h_level_size, 
int  v_level_size,  char  *name,  char  *win_id) ; 
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/**************************************************************************** 

File:  util.c 

Name:  Jader  Gomes  da  Silva  Filho 

Date:  05/97 

Operating  Environment:  Windows  95 

Compiler:  MS  Visual  C++ 
******************************************************************* 

#include  <stdio.h> 

#include  <stdlib.h> 

#include  <string.h> 

#include  <mil.h> 

#include  <math.h>  /*  for  fabs  */ 

#include  "util.h" 

#include  "nrutil.h" 


/*  Output  for  Matlab  Plotting*/ 

void  write_wav_level_high_to_disk(Feature_Node  *feature_list ,  char  *name, 

int  level,  int  angle,  int  h_size,  int  v_size) 
{ 

FILE  *outfile; 

char  file.nl [STRING] ,  f ile_n2 [STRING] ; 

int  i,  temp_x,  temp_y,  max_index  =  SIZE_LIST; 

Point  centroid  =  calc_centroid(feature_list ,  level); 

strcpy (file.nl, name) ; 

/*sprintf(file_n2,"l°/.da%d", level, angle) ;  */ 

sprintf  (f  ile_n2 ,  "l'/,d"  ,  level)  ; 

strcat(f ile_nl,f ile_n2) ; 

strcat (f ile_nl , " .m") ; 

outfile  =  fopen(f ile_nl, "a") ; 

if  .(outfile  ==  (FILE  *)-l){ 

printf  ("\nError  writing  wavelets  to  files  7.s\n"  ,f  ile_nl) ; 

exit(0) ; 
} 
else{ 

f  printf  (outfile,  'T/.Highest  7,d  Level  7.d  Angle  °/,d  Figure  7.s\n"  , 

max_index, level, angle, name) ; 

f  printf  (outfile,  "xh°/.d°/,d  =  0:  l:°/,d;\n"  ,  level,  angle  ,h_size-l)  ; 

f  printf  (outfile,  "yh0/,d'/,d  =  0:  l:°/.d;\n"  ,  level,  angle,  v_size-l)  ; 

f  pr  int  f  ( out  file,"  value°/,d°/,d  =  zeros  (7.d,70d)  ;\n"  .level, angle, v_size,h_size)  ; 
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fprintf  (outf  ile,  "mean7,d7.d  =  zeros  (7.d,7.d)  ;\n"  , level, angle, v_size,h_size) ; 
fprintf  (outf  ile,"  variance7.d7.d  =  zeros (7.d,7,d)  ;\n"  .level, angle, v_size,h_size 
for(i=0;  i  <  max_index;  i++) 

{ 
temp_x  =  feature_list[i] .point. x  +  1; 
temp_y  =  feature_list[i] .point .y  +  1; 
/♦printf ("\nx  =  7.d  y  =  7.d" ,  temp_x,  temp_y);*/ 

fprintf  (outf  ile ,  "valuey.d7od(7od ,  7.d)  =  '/, .  61f ;  \n"  ,  level ,  angle , temp_y ,  temp_x , 
feature_list[i] .value) ; 

fprintf  (outf  ile ,  "mean7od7.d  (7.d ,  */,d)  =  7. .  61f  ;  \n"  ,  level ,  angle , temp_y ,  temp_x , 
feature_list [i] .mean) ; 

fprintf  (outf  ile ,  " variance7od7.d(7.d ,  7.d)  =  7. .  61f ;  \n"  ,  level ,  angle ,  temp_y ,  temp_x , 
feature_list [i] .variance) ; 
} 

fprintf  (outf  ile,  "xh,/.d7.d  =  xh7.d7,d  -  7..  61f  ;\n"  ,  level,  angle, 

level , angle , centroid . x) ; 

fprintf  (outf  ile,  "yh7,d7.d  =  yh'/.d'/.d  -  7,.61f  ;\n"  , level, angle, 

level , angle , centroid . y) ; 

fprintf (outf ile, "figure (2) \n") ; 

fprintf (outf ile , "elf \n") ; 

fprintf  (outf  ile, "surf  (xh7,d7od,yh7,d7,d,value7.d7od)  .shading  interp,  view(2),  colt 

level, angle) ; 

fprintf (outf ile, "set (gca, 'YDir' , ' reverse' )\n") ; 

fprintf  (outf  ile,  "title  ('Highest  7.d  Level  7,d  Angle  °/.d  Figure  7.s')\n", 

max_index , level , angle , name) ; 

fprintf  (outf  ile,  "title  ('Highest  '/.d  Level  7.d  Figure  7,s')\n", 

max_ index, level, name) ; 

fprintf (outf ile , "xlabel ( ' x ' ) \n" ) ; 

fprintf (outf ile , "ylabel ( ' y ' ) \n" ) ; 

fprintf (outf ile , "zlabel ( ' coef ' ) \n" ) ; 

fprintf (outf ile, "figure (3) \n") ; 

fprintf (outf ile, "elf \n") ; 

fprintf  (outf  ile,  "surf  (xh7.d7od,yh7.d7.d,abs(value7,d7.d))  .shading  interp,  view  (2 

level , angle , level , angle) ; 

fprintf (outf ile, "set (gca, 'YDir' , ' reverse ')\n") ; 

fprintf  (outf  ile,  "title( 'Highest  7,d  Level  7.d  Angle  '/.d  Figure  7,s')\n", 

max_ index, level, angle, name) ; 

fprintf  (outf  ile,  "title  ('Highest  7.d  Level  7,d  Figure  7,s')\n", 

max_index , level .name) ; 

fprintf (outf ile , "xlabel ( ' x ' ) \n" ) ; 

fprintf (outf ile , "ylabel ( ' y ' ) \n" ) ; 

fprintf (outf ile, "zlabel Cabs (coef) ')\n") ; 
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} 

f close(outf ile)  ; 

return; 
> 

/*  Output  for  Matlab  Plotting*/ 
void  write_wav_level_to_disk (double  *in,  char  *name,  int  level,  int  angle, 

int  h_size,  int  v_size) 
{ 

FILE  *outfile; 

char  file.nl [STRING] ,file_n2 [STRING] ; 

int   i,j,indice; 

strcpy(f ile_nl,name) ; 

/♦sprintf  (f  ile_n2 ,  "l°/,da°/,d" ,  level ,  angle) ;  */ 

sprintf  (f  ile_n2 ,  Ml7,d" , level) ; 

strcat (file.nl ,file_n2) ; 

strcat(f ile.nl, ".m") ; 

outfile  =  fopen(f ile_nl,"w") ; 

ifCoutfile  ==  (FILE  *)-l){ 

printf  ("\nError  writing  wavelets  to  files  7,s\n"  ,f ile_nl)  ; 
exit(O) ; 
} 
else{ 

fprintf  (outfile,  "'/.'/.Wavelets  level  °/,d,  angle  '/.d,  figure  °/.s\n" , 
level, angle, name) ; 

fprintf  (outfile,  "x'/.d'/.d  =  0:  l:°/.d;\n"  ,  level,  angle,  h_size-l) ; 
fprintf  (outfile,  "y°/,d°/,d  =  0:  l:°/.d;\n"  ,  level,  angle,  v_size-l)  ; 
fprintf  (outfile,  "vV.d'/.d  =  [",  level,  angle) ; 
for(j=0;  j  <  v_size  ;  j++H 
for(i=0;  i  <  h_size  ;  i++){ 
indice  =  j*h_size  +  i; 
fprintf  (outf  ile,"*/..  61f  ",  in  [indice]  ) ; 
} 
fprintf (outf ile, "\n") ; 

} 

fprintf (outfile,"] ;\n") ; 

fprintf (outf ile, "figure (l)\n") ; 

fprintf (outf ile, "elf \n") ; 

fprintf  (outf  ile,  "surf  (x0/,d0/od,yo/od0/od,v°/.dy.d)  .shading  interp,  view(2)  ,  colormap(jet 

level, angle) ; 

fprintf (outf ile, "set (gca, 'YDir' , 'reverse' )\n") ; 

fprintf  (outf  ile,  "title  ('Wavelets  Coef  Level  °/,d  Angle  %d  Figure  7.s')\n", 
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level, angle, name) ; 

fprintf (outfile, "title ('Wavelets  Coef  Level  °/,d  Figure  ,/.s,)\n", 

level, name) ; 

fprintf (outfile , "xlabel ( ' x ' ) \n" ) ; 

fprintf (outfile , "ylabel ( ' y ' ) \n" ) ; 

fprintf (outfile , "zlabel ( ' coef ' ) \n" ) ; 

fprintf (outfile, "axis ([0  63  0  63])\n"); 

} 

f close(outf ile) ; 

return; 

} 

void  write_message_and_pause(char  *message) 
{ 

printf (message) ; 

printf ("\nPress  <Enter>  to  continue."); 

getcharO  ; 
} 

void  display_buffer_on_screen(MIL_ID  *Display,  MIL_ID  *Image, 

unsigned  char  *data,  char  *message, 
int  wait) 
{ 

Mbuf Clear (* Image, 0L) ; 
Mbuf Put ( * Image , data) ; 
MdispSelect(*Display,  * Image ) ; 
if (wait) write_message_and_pause (message) ; 
} 

void  copy_double_to_double (double  *in,  double  *out) 
{ 

int  i ,  j  ; 

for(i=0;i  <  IMAGE.WIDTH;  i++) 
for(j=0;  j  <  IMAGE_HEIGHT;  j++) 

out[j*IMAGE_WIDTH+i]  =  in[j*IMAGE_WIDTH+i]  ; 
} 

void  copy_double_to_double_level (double  *in,  double  *out,  int  h_size,  int  v_si: 
{ 

int  i,j; 

for(i=0;  i  <  h_size;  i++) 
for(j=0;  j  <  v_size;  j++) 

out  [j*h_size+i]    =  in[j*h_size+i]  ; 
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return; 
} 

void  copy_double_to_char_rev (double  *in,  unsigned  char  *out, double  scale) 
{ 

int  i,j; 

for(i=0;i  <  IMAGE_WIDTH;  i++) 
for(j=0;  j  <  IMAGE.HEIGHT;  j++) 

out[j*IMAGE_WIDTH+i]  =  Oxffff  -  (unsigned  char) 
(scale  *  fabs(in[j*IMAGE_WIDTH+i])  +  0.5); 
} 

void  copy_double_to_char_rev_level (double  *in,  unsigned  char  *out, double  scale, 

int  h_size,  int  v_size) 
{ 

int  i , j ; 

for(i=0;i  <  h_size;  i++) 
for(j=0;  j  <  v_size;  j++) 

out [j*h_size+i]  =  Oxffff  -  (unsigned  char) 
(scale  *  fabs(in[j*h_size+i])  +  0.5); 
} 

void  copy_double_to_char (double  *in,  unsigned  char  *out, double  scale) 
•C 

int  i,j; 

for(i=0;i  <  IMAGE.WIDTH;  i++) 
for(j=0;  j  <  IMAGE.HEIGHT;  j++) 

out[j*IMAGE_WIDTH+i]  =  (unsigned  char) 

(scale  *  fabs(in[j*IMAGE_WIDTH+i])  +  0.5); 
} 
void  copy_double_to_char_level (double  *in,  unsigned  char  *out, double  scale, 

int  h_size,  int  v_size) 
{ 

int  i,j; 

for(i=0;i  <  h_size;  i++) 
for(j=0;  j  <  v_size;  j++) 

out [j*h_size+i]  =  (unsigned  char) 

(scale  *  fabs(in[j*h_size+i])  +  0.5); 
> 

void  copy_char_to_double (unsigned  char  *in,  double  *out) 
{ 

int  i,j; 
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for(i=0;i  <  IMAGE_WIDTH;  i++) 
for(j=0;  j  <  IMAGE.HEIGHT;  j++) 

out[j*IMAGE_WIDTH+i]  =  (double)  in[j*IMAGE_WIDTH+i] ; 
} 

int  distance (double  *in,  int  i,  int  j,  int  h_size,  int  v_size) 
{ 

if  ((sqrt(SQR(h_size/2-i)+SQR(v_size/2-j)))  >=  (h_size/2)){ 
in[j*h_size+i]  ==  0.0; 
return  FALSE;} 
return  TRUE; 
} 


int  neighbornotzero (double  *in,  int  i,  int  j,  int  h_level_size, 
int  v_level_size) 

{ 

int  k , 1 ; 

for(l=(j==0  ?  j  :  j-1);  1  <=  (j==v_level_size-l  ?  j  :  j+1)  ;  1++) 
for(k=(i==0  ?  i  :  i-1) ;  k  <=  (i==h_level_size-l  ?  i  :  i+1)  ;  k++){ 
if  (in[l*h_level_size+k]  ==  0.0)  return  FALSE;} 
return  TRUE; 
} 

/****QuickSort****/ 

void  Swap(Feature_Node  *elemlPtr,  Feature_Node  *elem2Ptr) 
{ 

Feature_Node  temp  =  *elemlPtr; 

♦elemlPtr  =  *elem2Ptr; 

*elem2Ptr  =  temp; 

return ; 
} 

void  Partition(Feature_Node  *array,  int  First,  int  Last,  int  *PivotIndex) 
{ 

/♦initially,  everything  but  Pivot  is  in  unknown*/ 

double  Pivot  =  SQR(array [First] .point .x)  +  SQR(array [First] .point .y) ; 

/♦assumes  Pivot  is  first  item*/ 
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int  LastSl  =  First;  /*index  of  last  item  in  Si*/ 

int  FirstUnknown  =  First  +  1;  /*index  of  first  item  in  unknown*/ 

/♦move  one  item  at  a  time  until  unknown  region  is  empty  */ 
for  ( ;  FirstUnknown  <=  Last ;  ++FirstUnknown) 
{  /*Invariant:  array [First+1 . .LastSl]  <  Pivot 
array [Last Sl+1. .FirstUnknown- 1]  >=  Pivot*/ 

/*move  item  from  unknown  to  proper  region  */ 

if  (SQR(array [FirstUnknown] .point .x)  +  SQRCarray [FirstUnknown] .point .y) 
<  Pivot) 
{  /*  item  from  unknown  belongs  in  SI*/ 
++LastSl; 

Swap (fearray [FirstUnknown]  ,  fearray [LastSl] ) ; 
} 

/*  else  item  from  unknown  belongs  in  S2*/ 
}   /*  end  for*/ 

/♦place  Pivot  in  proper  position  and  mark  its  location  */ 
Swap (fearray [First] ,  fearray [LastSl] ) ; 
*PivotIndex  =  LastSl; 
}   /*end  partition*/ 

/♦Sorts  the  items  in  an  array  in 
precondition:  array [First . .Last]  is  an  array, 
postcondition:  array [First . .Last]  is  sorted. 
Calls:  partition. ♦/ 

void  Quicksort (Feature_Node  +array,  int  First,  int  Last) 
{ 

int  Pivot Index; 

if  (First  <  Last) 

{  /^create  the  partition:  SI,  Pivot,  S2  ♦/ 
Partition(array ,  First,  Last,  fePivotlndex) ; 

/♦sort  regions  SI  and  S2  ♦/ 
Quicksort (array,  First,  Pivotlndex  -  1); 
Quicksort (array ,  Pivotlndex  +  1,  Last); 
}   /+end  if+/ 
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/****endQuickSort****/ 

Feature_Node  *order_by_distance(Feature_Node  *feature_list) 

{ 

Feature_Node  *ordered_list ; 
int  k; 

ordered_list  =  (Feature_Node  *) 

malloc (SIZE_LIST*sizeof (Feature.Node) ) ; 
if  (ordered_list  ==  NULL){ 

printfC'Out  of  memory\n") ; 

exit(O) ; 
} 
/*  in  case  we  need  to  save  the  original  ordering  by  value, 

just  change  feature_list  by  ordered_list  in  the  Quicksort  call  */ 
for (k=0 ; k<SIZE_LIST ; k++) 

ordered_list [k]  =  feature_list [k]  ; 

Quicksort (feature.list,  0,  SIZE_LIST-1) ; 
return  ordered_list ; 

> 


void  find_list_highest (double  *in,  Feature_Node  *feature_list , 

int  h_size,  int  v_size) 
{ 

int  i,j,k,temp_i  =  l,temp_j  =  1; 

double  max  =  -1 .5*MAX_VALUE,  min  =  1 .5*MAX_ VALUE; 

double   *temp; 

int  l,m,indice; 

double  sum=0.0,  sumsqr=0.0; 

temp  =  (double  *) 

malloc (h_size*v_size*IMAGE_BAND*sizeof (double) ) ; 

if  (temp  ==  NULLH 

printfC'Out  of  memory\n"); 
exit(0) ; 

} 

copy_double_to_double_level(in,  temp,  h_size,  v_size) ; 
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for(k=0;k<SIZE_LIST;k++){ 
for(j=0;    j   <  v_size    ;    j++) 
for(i=0;    i  <  h_size    ;    i++){ 
indice  =  j*h_size  +  i; 
if (fabs(temp[indice] )    >=  max 

&&  neighbornotzero(temp,i, j ,h_size,v_size) ){ 
max  =  fabs (temp [indice] ) ; 
temp_i  =   i; 
temp_j   =  j; 
} 
if (temp [indice]    <  min){ 

min  =  fabs (temp [indice]  ) ; 
} 

} 
feature_list[k] .point .x  =  temp_i; 
feature_list[k] .point .y  =  temp_j ; 
feature_list[k] .value  =  temp[temp_j*h_size  +  temp_i] ; 

/*   sum  and  sum  square,   plus  zeroing  the  point  and  neighbors*/ 

f or(m=(temp_j==0   ?  temp_j    :    temp_j-l); 

feature_list  [k] .mean  =  sum/9; 

feature_list [k] .variance   =   (sumsqr  -  SQR(feature_list [k]  .mean)*9)/8; 

max  =  min; 

sum  =  sumsqr  =  0.0; 
} 

order_by_distance(feature_list) ; 
free (temp) ; 
return ; 
} 

void  f ind_list_lowest (double  *in,  Feature_Node  *feature_list , 

int  h_size,  int  v_size) 
{ 

int  i,j,k,temp_i  =  l,temp_j  =  1; 

double  max  =  in[0]  ,  min  =  in[0]  ; 

double   *temp; 

int  l,m, indice; 

double  sum=0.0,  sumsqr=0.0; 

temp  =  (double  *) 
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malloc (h_size*v_size*IMAGE_BAND*sizeof (double) ) ; 

if  (temp  ==  NULLM 

printfC'Out  of  memory\n"); 
exit(O) ; 

} 

copy_double_to_double_level(in,  temp,  h_size,  v_size) ; 

/♦borders  are  being  taken  off*/ 
for (k=0 ; k<SIZE_LIST ; k++) { 

for(j=l;  j  <  v_size-l  ;  j++) 
for(i=l;  i  <  h_size-l  ;  i++){ 
indice  =  j*h_size  +  i; 

if (temp [indice]  <=  min  &&  neighbornotzero(temp,i, j ,h_size,v_size)){ 
min  =  temp [indice] ; 
temp_i  =  i; 
temp.j  =  j; 
} 
if (temp [indice]  >  max){ 

max  =  temp [indice] ; 
} 

} 
feature_list[k] .point .x  =  temp_i; 
feature_list[k] .point .y  =  temp_ j ; 
feature_list[k] .value  =  min; 

/*  sum  and  sum  square,  plus  zeroing  the  point  and  neighbors*/ 

for(m=temp_j-l;  m  <  temp_j+2  ;  m++) 
for(l=temp_i-l;  1  <  temp_i+2  ;  l++){ 
indice  =  m*h_size+l; 
sum    +=  temp [indice] ; 
sumsqr  +=  SQR(temp [indice] ) ; 
temp [indice]  =  0.0;} 

feature_list [k] .mean  =  sum/9; 

feature_list[k] .variance  =  (sumsqr  -  SQR(f eature_list [k] .mean)*9)/8; 

min  =  max; 

sum  =  sumsqr  =  0.0; 
} 
free (temp) ; 
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return ; 

} 


void  log_of (double  *inout) 
{ 

int  i ,  j  ; 

for(i=0;i  <  IMAGE.WIDTH;  i++) 

for(j=0;  j  <  IMAGE.HEIGHT;  j++)  { 

inout [j*IMAGE_WIDTH+i]  =  (inout [j*IMAGE_WIDTH+i]  ==0.0)  ? 
0.0000000000000000001  :  inout [j*IMAGE_WIDTH+i] ; 

inout [j*IMAGE_WIDTH+i]  =  (double)  logl0(inout [j*IMAGE_WIDTH+i] ) ; 
} 
} 

Point  calc_centroid(Feature_Node  *feature_list ,  int  level) 
{ 

int  i; 

double  sum_x  =  0.0,  sum_y  =  0.0; 

int  max_index  =  SIZE_LIST; 

Point  centroid; 

for(i=0;  i  <  max_index;  i++) 
{ 

sum_x  +=  feature_list[i] .point .x; 

sum_y  +=  feature_list[i] .point .y; 
} 
centroid. x  =  sum_x/max_ index; 
centroid. y  =  sum_y/max_ index; 

return  centroid; 
} 

int  load_names(char  *f ile_list ,char  **names) 
{ 

FILE  *infile; 

int  i  =  0,  valid; 

char  *file  =  (char  *)  malloc(STRING*sizeof (char)) ; 

infile  =  f open(f ile_list , "r") ; 
if(infile  ==  NULL){ 

printf  ("\nError  reading  from  file  7,s\n"  ,f  ile_list)  ; 
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exit(O) ; 
}else{ 

while    (!feof (infile))    { 

valid  =  fscanf  Unfile,  "0/os\n" ,    file); 
i++; 
} 
rewindUnf  ile) ; 

♦names  =      (char  *)   malloc(STRING*sizeof (char)*i) ; 
i  =  0; 
while    (!feof Unfile))    { 

valid  =  fscanf  Unfile, '7.s\n",    (*names+i*STRING)) ; 
i++; 
} 
> 

f  close  Unfile) ; 
free(f ile) ; 
return (i) ; 
} 

int  load_names_and_types(char   *f ile_list ,Training_List   **names_list) 
{ 

FILE  *infile; 

int   i  =  0,   valid; 

char  *file  =    (char  *)   malloc(STRING*sizeof (char)) ; 

Training_List   *temp_ptr,    *first; 

infile  =  f open(f ile_list ,"r") ; 
if  Unfile  ==  NULLH 

printf  ("\nError  reading  from  file  °/,s\n"  ,f  ile_list) ; 

exit(O) ; 
}else{ 

*names_list  =  NULL; 

while  (!feof Unfile))  { 

if (((temp_ptr  =  (Training_List  *)malloc(sizeof (Training_List)))  ==  NULL) 
II  ((temp_ptr->file_name  =  (char  *)malloc(STRING*sizeof (char))) 
==  NULL))  { 
printf ("Not  enough  space  for  loading  names\n"); 
exit(O) ; 
} 

valid  =  fscanf  Unfile,  "7,s  7,d\n"  ,  temp_ptr->f  ile_name, 
&(temp_ptr->same_type)) ; 


126 


printfC'/.s  °/,d\n",   temp_ptr->f ile_name,    temp_ptr->same_type)  ; 
if    (*names_list   ==  NULL) 

{ 

first  =  *names_list  =  temp_ptr; 
temp_ptr->next  =  NULL; 
} 

else 
{ 

*names_list  =  (*names_list)->next  =  temp_ptr; 
temp_ptr->next  =  NULL; 
} 

if (temp_ptr->same_type  ==  FALSE) 
i++; 
} 

*names_list  =  first; 
} 

f close(inf ile) ; 
return (i) ; 
} 

void  normalize (double  *inout,  double  factor,  int  h_size,  int  v_size) 
{ 

int  i,j; 

for(i=0;    i  <  h_size;    i++) 
for(j=0;    j   <  v_size;    j++) 
if (factor    !=  0.0) 
inout [j*h_size+i]    =  inout  [j*h_size+i] /factor ; 

return ; 
} 

void  init_write_lisp_training(char  *file,  int  level) 
{ 

FILE  *outfile; 

char  file.nl [STRING] ,  f ile_n2 [STRING] ; 

strcpy(f ile_nl,f ile) ; 
sprintf  (f  ile_n2 ,  " l,/.d"  ,  level ) ; 
strcat(file_nl,f ile_n2) ; 
strcat(file_nl,".lisp") ; 
outfile  =  fopen(file_nl,"w") ; 

if (outfile  ==  NULLM 
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printf  ("\nError  writing  to  file  %s\n" ,f ile) ; 

exit(O)  ; 
} 
else{ 

fprintf (outf ile, "; ;Training  data  level  %d\n" ,  level); 

fprintf (outf ile,"(defun  train  ()  (main  '("); 

} 

f close(outf ile) ; 

return; 

} 


void  write_lisp_training(Feature_Node  *feature_list ,  char  *name, 

int  level,  int  angle,  char  *file) 
{ 

FILE  *outfile; 

int  i  =  0,  max_index  =  SIZE_LIST; 

Point  centroid  =  calc_centroid(feature_list ,  level); 

char  file_nl [STRING] ,  f ile_n2 [STRING] ; 

strcpy(f ile_nl,f ile) ; 
sprintf (f ile_n2 , " l%d" , level) ; 
strcat (f ile_nl,f ile_n2) ; 
strcat(file_nl," .lisp") ; 
outf ile  =  fopen(f ile_nl,"a") ; 

if  (outf  ile  ==  NULLH 

printf  ("\nErr or  writing  to  file  °/,s\n"  ,f  ile)  ; 
exit(0) ; 
} 
else{ 

fprintf  (outf  ile,  "\n;  ;Highest_70d,  level  °/,d,  angle  °/,d,  figure  7,s\n(", 
max_ index, level, angle, name) ; 
for(i=0;  i  <  max_index;  i++) 
{ 
f  printf  (outf  ile , '7, .  161f  °/,.161f  c/,.161f  7,.161f  °/..161f  ", 
f eature_list [i] . point . x-centroid . x , 

feature_list [i] .point .y-centroid.y,feature_list [i]  .value, 
f eature_list [i] .mean,feature_list [i]  .variance) ; 
} 
fprintf (outf ile,") \n"); 
} 
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f close(outf ile) ; 
return ; 

} 

void  print_bit (int  value,  FILE  *outfile,  int  nn) 
{ 

int  i; 

int  mask  =  1  «  (nn-1) ; 

for(i=l;  i<=nn;  i++) 
{ 

fputc(( (value  &  mask)  ==  0)  ?  '0'  :'l',  outf ile) ; 
value  «=  1 ; 
fputc( '  ' , outf ile) ; 
} 
return ; 
} 

int  Int (double  value) 
{ 

int  temp  =  value; 

if  (value  ==  (double)  temp) 

return  temp; 
else 

return  temp+1; 
} 

void  end_write_lisp_training(char  *file,  int  num_files,  Training_List  *names, 

int  level) 
{ 

int  i  =  0,  angle; 

double  ii  -  1./2; 

FILE  *outfile; 

int  num.bitl  =  Int(loglO(num_f iles)/logl0(2)) ; 

int  num_bit2  =  Int(loglO(360/STEP_ANGLE)/loglO(2)) ; 

char  file.nl [STRING] ,  f ile_n2 [STRING] ; 

num_bitl  =  num_files; 
strcpy(f ile_nl,f ile) ; 
sprintf  (file_n2,"l°/,d" ,  level); 
strcat(f ile_nl,f ile_n2) ; 
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strcat(file_nl,".lisp") ; 
outfile  =  fopen(f ile_nl, "a") ; 

if (outfile  ==  NULL){ 

printf  ("\nError  writing  to  file  °/.s\n"  ,f  ile) ; 
exit(O)  ; 
} 
else{ 

fprintf (outfile, ")\n; ;outputs  \n' (") ; 
do{ 

/*if  the  file  has  the  same  output  as  the  previous,  don't  increment  i*/ 
if (names->same_type  ==  FALSE) { 
ii  *=  2; 
i  =  (int)  ii; 
} 

for(angle=0;  angle  <  360/STEP_ANGLE;  angle++){ 
fprintf (outfile, "(") ; 
print _bit(i,outf ile, num_bitl) ; 
print_bit (angle , outfile ,num_bit2) ; 
fprintf  (outfile,  "An") ; 
} 
}while( (names  =  names->next)  !=  NULL); 
fprintf (outfile , " ) ) ) \n" ) ; 
} 

f close(outf ile) ; 
return ; 
} 

void  write_lisp_id_f ile (char  *file,  int  num_files,  Training_List  *names, 

int  level) 

{ 

int  i  =  1 ,  angle ; 

FILE  *outfile; 

int  num.bitl  =  Int(loglO(num_f iles)/logl0(2)) ; 

int  num_bit2  =  Int (loglO(360/STEP_ANGLE)/loglO(2) ) ; 

char  file.nl [STRING] ,  f ile_n2 [STRING] ; 

char  *name ; 

num_bitl  =  num_files; 
strcpy(f ile_nl,f ile) ; 
sprintf  (file_n2 ,  "l'/.d"  , level) ; 
strcat(f ile_nl,f ile_n2) ; 
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strcat (f ile_nl , " . lisp") ; 

sprintf (file_n2,"")  ; 

outfile  =  fopen(f ile_nl,"w") ; 

if (outfile  ==  NULLM 

printf  ("\nError  writing  to  file  °/.s\n"  ,f  ile) ; 

exit(O) ; 
} 
else{ 

f  printf  (outfile,"  ;  ;  identification  list  for  level  °/,d  \n",  level); 

f  printf  (outfile,  "(setf  *id_list°/,d*  '(",  level); 

do{ 

/♦if  the  file  has  the  same  output  as  the  previous,  skip  it*/ 
if (names->same_type  ==  FALSE) { 
name  =  names->f ile_name; 

for(angle=0;  angle  <  360/STEP.ANGLE;  angle++){ 
strcpy(f ile_nl,name) ; 

sprintf  (f  ile_n2 ,  "l°/.da7,d"  ,  level ,  angle*STEP_ ANGLE)  ; 
strcat (f ile_nl,f ile_n2) ; 
f  printf  (outfile ,  "  (7,s  "  ,f  ile.nl)  ; 
fprintf(outfile,"("); 
print _bit(i,outf ile, num_bitl) ; 
print _bit (angle, outf ile, num_bit2) ; 
f printf (outfile , ") ) \n" ) ; 
} 

i  *=  2; 
} 
}while( (names  =  names->next)  !=  NULL); 
f printf (outfile , " ) ) \n" ) ; 
} 

f close (outf ile) ; 
return ; 
} 

void  free_f ile_list(Training_List  **names_list) 
{ 

Training_List  *temp_ptr; 

while ((*names_list)  !=  NULLM 
free((*names_list)->f ile_name) ; 
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temp_ptr  =  *names_list; 
*names_list  =  (*names_list)->next ; 
free(temp_ptr) ; 

} 
return; 

} 


/*  Phase  2  -  Testing  */ 

void  init_write_lisp_test(char  *file,  int  level) 
{ 

FILE  *outfile; 

char  file.nl [STRING] ,    f ile_n2  [STRING] ; 

strcpy(f ile_nl,f ile) ; 
sprintf  (file_n2 ,  "l'/.d"  ,  level) ; 
strcat(file_nl,f ile_n2) ; 
strcat(file_nl," .lisp") ; 
outfile  =  fopen(f ile_nl,"w") ; 

if(outfile  ==  NULLM 

printf ("\nError  writing  to  file  %s\n" ,f ile) ; 

exit(O) ; 
} 
else{ 

f  printf  (outfile,  ";  ;Test  data  level  °/,d\n" ,  level); 

f printf (outfile, " (defun  test  ()  (recon  '("); 
} 

f close(outf ile) ; 
return ; 
} 

void  write_lisp_test (Feature_Node  *feature_list ,  char  *name, 

int  level,  char  *file) 
{ 

FILE  *outfile; 

int   i  =  0,   max_index  =  SIZE_LIST; 

Point  centroid  =  calc_centroid(feature_list ,    level); 

char  file_nl [STRING] ,    file_n2 [STRING]  ; 
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strcpy(f ile_nl,f ile) ; 
sprintf  (f  ile_n2 ,  "lc/.d"  ,  level) ; 
strcat (file_nl,file_n2) ; 
strcat (file_nl, " .lisp") ; 
outfile  =  f open(f ile_nl , "a") ; 

if (outfile  ==  NULL){ 

printf  ("\nError  writing  to  file  °/,s\n"  ,f  ile)  ; 
exit(O)  ; 
} 
else{ 

fprintf  (outfile,  "\n; ; Highest _%d,  level  °/.d,  figure  °/,s\n(", 
max_ index, level, name) ; 
for(i=0;  i  <  max_index;  i++) 
{ 
fprintf  (outfile,  "7,.  161f  °/,.161f  7,.161f  °/„.161f  °/..161f  ", 
feature_list [i] .point .x-centroid.x, 

feature_list [i] .point .y-centroid.y,feature_list [i]  .value, 
feature_list [i] .mean,feature_list [i] .variance) ; 
} 
fprintf (outfile , " ) \n" ) ; 
} 

fclose(outf ile) ; 
return; 
} 

void  end_write_lisp_test(char  *file,  int  level) 
{ 

FILE  *outfile; 

char  file_nl [STRING] ,  f ile_n2 [STRING] ; 

strcpy(f ile_nl,f ile) ; 
sprintf  (file_n2 ,  "I7.d" , level) ; 
strcat (f ile_nl,f ile_n2) ; 
strcat (file.nl, ".lisp") ; 
outfile  =  fopen(f ile_nl,"a") ; 

if  (outfile  ==  NULLH 

printf  ("\nError  writing  to  file  °/,s\n"  ,f ile)  ; 
exit(O)  ; 

} 
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else{ 

f printf (outf ile , " ) ) ) \n" ) ; 

} 

f close(outf ile) ; 
return ; 
} 


/*  Phase  3  -  Scanning  */ 


int  neighbornotzero_scan (double  *in,  int  i,  int  j,  int  level) 
{ 

int  k,l; 

int  h_level_size  =  IMAGE_WIDTH/(pow(2,level)) ; 

int  v_level_size  =  IMAGE_HEIGHT/(pow(2,level)) ; 

for(l=(j==0  ?  j  :  j-1);  1  <=  (j==v_level_size-l  ?  j  :  j+1)  ;  1++) 
for(k=(i==0  ?  i  :  i-1) ;  k  <=  (i==h_level_size-l  ?  i  :  i+1)  ;  k++){ 
if  (in[l*h_level_size+k]  ==  0.0)  return  FALSE;} 
return  TRUE; 
} 


void  histogram (double  *in,  int  level,  double  level_max) 
{ 

int  i, j ,indice, threshold, ten_percent, count  =  0; 

int  *hist ; 

int  h_level_size  =  IMAGE_WIDTH/ (pow(2, level) ) ; 

int  v_level_size  =  IMAGE_HEIGHT/(pow(2,level)) ; 

hist  =  (int  *) 

malloc((int)  (level_max*sizeof (int))) ; 
ten_percent  =  (int)  (0. l*h_level_size*v_level_size) ; 

printf  ("  (int)   f  abs(level_max)    =  °/,d\n"  ,  (int)    fabs(level_max))  ; 

for    (i=0; i<(int)level_max;i++) 

hist[i]    =  0; 
for(j=0;    j   <  v_level_size    ;    j++) 
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for(i=0;  i  <  h_level_size  ;  i++) 
{ 
indice  =  (int)  fabs(in[j*h_level_size  +  i]); 
hist [indice]++; 
} 
i  =  -1; 

printf  ("ten_percent  =  °/.d\n"  ,ten_percent) ; 
while (count  <  ten_percent) 
{ 
i++; 

count  +=  hist [i] ; 

printf ("hist [%d]  =  '/.d\n",i,hist[i]) ; 
} 
threshold  =  i; 
printf  ("threshold  =  °/.d\n"  threshold)  ; 

for(j=0;  j  <  v_level_size  ;  j++) 
for(i=0;  i  <  h_level_size  ;  i++) 
{ 
indice  =  j*h_level_size  +  i; 
if  ((int)fabs(in[indice] )  <=  threshold) 
{ 

in [indice]  =  0.0; 
} 

} 
return ; 
} 

void  f ind_scan_list_highest (double  *in,  Feature_Node  *feature_list , 
int  h_init,  int  h_size,  int  v_init,  int  v_size, 
int  level) 
{ 

int  i, j ,k,temp_i  =  l,temp_j  =  1; 

double  max  =  -1 .5*MAX_VALUE,  min  =  1 .5*MAX_VALUE; 

double  win_max  =  -1 .5*MAX_ VALUE,  win.min  =  1 .5*MAX_VALUE; 

double   *temp; 

int  l,m, indice; 

double  sum=0.0,  sumsqr=0.0; 

int  h_level_size   =   IMAGE_WIDTH/(pow(2,leveD) ; 

int  v_level_size  =  IMAGE_HEIGHT/(pow(2,leveD) ; 

temp  =   (double   *) 
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malloc (h_level_size*v_level_size*IMAGE_BAND*sizeof (double) ) ; 

if  (temp  ==  NULL){ 

printfC'Out  of  memory\n")  ; 
exit(O)  ; 

} 

copy_double_to_double_level(in,  temp,  h_level_size,  v_level_size) ; 

for(j=v_init ;  j  <  v_init+v_size;  j++) 
for(i=h_init;  i  <  h_init+h_size;  i++){ 
indice  =  j*h_level_size  +  i; 
if (fabs(temp[indice] )  >  win_max) 
win_max  =  fabs (temp [indice] ) ; 

if (fabs (temp [indice] )  <  win_min) 
win_min  =  fabs (temp [indice] ) ; 
} 

normalize (temp,  win_max/MAX_VALUE,  h_level_size,  v_level_size) ; 

/♦borders  are  being  taken  off*/ 
for(k=0;k<SIZE_LIST;k++){ 

for(j=v_init ;  j  <  v_init+v_size;  j++) 
for(i=h_init ;  i  <  h_init+h_size;  i++){ 
indice  =  j*h_level_size  +  i; 
if (fabs (temp [indice] )  >=  max  && 

neighbornotzero_scan(temp , i , j , level) ) { 
max  =  fabs (temp [indice] ) ; 
temp_i  =  i; 
temp_j  =  j; 
} 
if (temp [indice]  <  min){ 

min  =  fabs (temp [indice] ) ; 
} 

} 
feature_list[k] .point .x  =  temp_i; 
feature_list [k] .point .y  =  temp_j ; 
feature_list[k] .value  =  temp[temp_j*h_level_size  +  temp_i] ; 

/*  sum  and  sum  square,  plus  zeroing  the  point  and  neighbors*/ 
for(m=(temp_j==0  ?  temp_j  :  temp_j-l) ; 
m  <=  (temp_j==v_level_size-l  ?  temp_j  :  temp_j+l)  ;  m++) 

136 


for(l=(temp_i==0  ?  temp_i  :  temp_i-l) ; 
1  <=  (temp_i==h_level_size-l  ?  temp_i  :  temp_i+l)  ;  l++){ 
indice  =  m*h_level_size+l; 

/♦average  is  being  calculated  with  the  abs  values  */ 
sum    +=  f abs (temp [indice] ) ; 
sumsqr  +=  SQR(temp [indice] ) ; 
temp [indice]  =  0.0; 
} 
feature_list [k] .mean  =  sum/9; 
feature_list[k] .variance  =  (sumsqr  -  SQR(feature_list [k] .mean)*9)/8; 

max  =  min; 
sum  =  sumsqr  =  0.0; 
} 

order_by_distance(feature_list) ; 
for (k=0 ; k<SIZE_LIST ; k++) 
{ 

if (feature_list [k] .value  ==  0.0) 
/*  flag  that  signals  the  NN  to  discard  this  template  */ 
feature_list [0] .value  =  0.0; 
} 
free (temp) ; 
return; 
} 

/*  Output  for  Matlab  Plotting*/ 

void  write_wav_scan_level_high_to_disk(Feature_Node  *feature_list ,  char  *name, 
int  level,  int  h_size,  int  v_size,  int  window, 
int  h_init,  int  v_init) 
{ 

FILE  *outfile; 

char  file_nl [STRING] ,  f ile_n2 [STRING]  ; 

int  i,  temp_x,  temp_y,  max_index  =  SIZE_LIST; 

Point  centroid  =  calc_centroid(feature_list ,  level); 

int  h_level_size  =  IMAGE_WIDTH/(pow(2,level)) ; 

int  v_level_size  =  IMAGE_HEIGHT/(pow(2,level)) ; 

strcpy (f ile_nl ,name) ; 

sprintf  (f  ile_n2,  "l'/odhiy.dviy.dhsy.dvsy.d" , level, h_init,v_init,h_size,v_size) ; 

strcat (f ile_nl,f ile_n2) ; 

strcat(file_nl," .m") ; 

outfile  =  fopen(f ile_nl ,"w") ; 
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if (outf ile  ==  (FILE  *)-l){ 

printf  ("\nError  writing  wavelets  to  files  7,s\n"  ,f ile_nl) ; 

exit(O) ; 
} 
else{ 

f  printf  (outf  ile,  "7.7.Highest_7.d,  level  7,d,  figure  7,s\n"  , 

max_index , level , name) ; 

f printf  (outf  ile,"xh7,d  =  0: 1 :7od;\n"  , level, h_level_size-l) ; 

fprintf  (outf  ile,"  yh7.d  =  0:  l:7.d;\n"  , level, v_level_size-l) ; 

f  printf  (outf  ile,  "value7od  =  zeros  (7od,7od)  ;\n"  ,  level,  v_level_size,h_level_size) 

fprintf  (outf  ile,  "mean7od  =  zeros  (7od,7od)  ;\n" ,  level,  v_level_size,h_level_size); 

fprintf  (outf  ile , "  variance7.d  =  zeros  (7.d ,  7.d) ;  \n"  ,  level ,  v_level_size ,  h_level_si 

for(i=0;  i  <  max_index;  i++) 
{ 
temp_x  =  feature_list[i] .point .x  +  1; 
temp_y  =  feature_list[i] .point .y  +  1; 

fprintf  (outf  ile,  "value7od(7od,7od)  =  7,.61f  ;\n"  ,  level,  temp_y,temp_x, 
feature_list [i] .value) ; 

fprintf  (outf  ile,  "mean7od(7.d,7.d)  =  7o.61f  ;\n" ,  level,  temp_y,temp_x, 
feature_list [i] .mean) ; 

fprintf  (outf  ile,  "variance7od(7.d,7.d)  =  7o.61f  ;\n"  ,  level,  temp_y,temp_x, 
feature_list [i] .variance) ; 
} 

fprintf  (outf  ile,  "xh7.d  =  xh°/.d  -  7,.61f  ;\n" ,  level, 

level , centroid . x) ; 

fprintf  (outf  ile,  "yh7,d  =  yh7.d  -  7..61f  ;\n"  ,  level, 

level , centroid . y) ; 

fprintf (outf ile , "figure (2) \n") ; 

fprintf (outf ile, "elf \n") ; 

fprintf  (outf  ile,  "surf  (xh7od,yh7od,value7.d)  .shading  interp,  view(2),  colormap(j 

fprintf (outf ile, "set (gca, JYDir' , ' reverse' )\n") ; 

fprintf  (outf  ile,  "title  ( 'Highest_7,d,  level  7.d,  figure  %s')\n", 

max_index, level, name) ; 

fprintf (outf ile , "xlabel ( ' x • ) \n" ) ; 

fprintf (outf ile , "ylabel ( ' y » ) \n" ) ; 

fprintf (outf ile , "zlabel ( ' coef ' ) \n" ) ; 

fprintf (outf ile, "figure (3) \n") ; 

fprintf (outf ile, "elf \n") ; 

fprintf  (outf  ile,  "surf  (xh7od,yh7.d,abs(value7od))  ,  shading  interp,  view(2),  color 

fprintf (outf ile, "set (gca, 'YDir' , ' reverse' )\n") ; 

fprintf  (outf  ile,  "title  ('Highest_7.d,  level  7,d,  figure  7.s')\n", 

max_index , level ,name) ; 
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f printf (outf ile , "xlabel ( ' x ' ) \n" ) ; 
fprintf  (outfile,,,ylabel(,y')\n"); 
f  printf  (outf  ile,"zlabel  Cabs  (coef)  ')\nu) ; 
} 

f close(outf ile) ; 
return; 
} 

void  init_write_lisp_scan(char  *file,  int  level) 
{ 

FILE  *outfile; 

char  file_nl [STRING],    f ile_n2 [STRING] ; 

strcpy(f ile_nl,f ile) ; 
sprintf  (f  ile_n2 ,  "l°/,d" ,  level)  ; 
strcat(f ile_nl,f ile_n2) ; 
strcat (file.nl, " .lisp") ; 
outf ile  =  fopen(f ile.nl, "w") ; 

if (outf ile  ==  NULLM 

printf  ("\nErr or  writing  to  file  °/,s\n"  ,f  ile) ; 

exit(O) ; 
} 
else{ 

fprintf  (outf  ile," ;  ;Scan  data  level  °/,d\n" ,  level); 

fprintf (outf ile," (defun  scan  ()  (recon  '("); 
} 

f close(outf ile) ; 
return; 
} 

void  write_lisp_scan(Feature_Node  *feature_list ,  char  *name,  int  level, 

int  h_init,  int  h_size,  int  v_init,  int  v_size) 
{ 

FILE  *outfile; 

int  i  =  0,  max_index  =  SIZE_LIST; 

Point  centroid  =  calc_centroid(feature_list ,  level); 

char  file.nl [STRING],  f ile_n2 [STRING] ; 

strcpy(f ile_nl,name) ; 
sprintf  (f  ile_n2 ,  "l'/.d"  ,  level)  ; 
strcat(f ile_nl,f ile_n2) ; 
strcat (file.nl, ".lisp") ; 
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outfile  =  fopen(file_nl,"a") ; 

if (outfile  ==  NULL){ 

printf  ("\nError  writing  to  file  °/.s\n"  ,f  ile_nl)  ; 
exit(O) ; 
} 
else{ 

fprintf  (outfile,  "\n;  ;I_col  %d,  I_row  °/,d,  h_size  °/.d,  v_size  °/„d\n(", 
h_init ,v_init ,h_size,v_size) ; 
for(i=0;  i  <  max_index;  i++) 
{ 
fprintf(outfile,'7..161f  °/..161f  °/..161f  %.161f  °/..161f  ", 
f eature_list [i] . point . x-centroid . x , 

feature_list [i] .point . y-centroid.y,f eature_list [i] .value, 
feature_list [i] .mean,feature_list [i] .variance); 
} 
fprintf (outfile , " ) \n" ) ; 
} 

f close(outf ile) ; 
return; 
} 

void  end_write_lisp_scan(char  *file,  int  level) 
{ 

FILE  *outfile; 

char  file_nl [STRING] ,    f ile_n2 [STRING] ; 

strcpy(f ile_nl,f ile) ; 
sprintf  (f  ile_n2 ,  "l'/.d"  ,  level) ; 
strcat (f ile_nl,f ile_n2) ; 
strcat (f ile.nl, " .lisp") ; 
outfile  =  fopen(f ile_nl,"a") ; 

if  (outfile  ==  NULLH 

printf  ("\nError  writing  to  file  7,s\n"  ,f  ile) ; 

exit(O) ; 
} 
else{ 

fprintf (outfile , " ) ) ) \n" ) ; 
} 

fclose(outf ile) ; 
return; 
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void  init_write_lisp_win_id(char  *file,  int  level) 
{ 

FILE  *outfile; 

char  file_nl [STRING] ,  f ile_n2 [STRING] ; 

strcpy(f ile_nl,f ile) ; 
sprintf (f ile_n2 , "l%d" , level) ; 
strcat(f ile_nl,f ile_n2) ; 
strcat(f ile_nl, " .lisp") ; 
outfile  =  fopen(f ile_nl, "w") ; 

if (outfile  ==  NULL){ 

printf  ("\nError  writing  to  file  °/0s\n"  ,f  ile)  ; 

exit(O) ; 
} 
else{ 

fprintf (outfile, "; ;windows  list  for  level  °/.d  \n" ,  level); 

f  printf  (outfile,  "(setf  *win_id°/,d*  ' (\n",  level); 

} 

f close(outf ile) ; 
return ; 
> 

void  write_lisp_win_id(char  *file,  int  level, 

int  h_init,  int  h_size,  int  v_init,  int  v_size) 
{ 

FILE  *outfile; 

char  file.nl [STRING],  f ile_n2 [STRING] ; 

strcpy(f ile_nl,f ile) ; 
sprintf  (file_n2,"l'/,d",  level); 
strcat(f ile_nl,f ile_n2) ; 
strcat(file_nl,".lisp") ; 
outfile  =  fopen(file_nl,"a") ; 

if  (outfile  ==  NULLM 

printf  ("\nErr or  writing  to  file  7.s\n"  ,f  ile)  ; 
exit(O) ; 

} 
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else{ 

fprintf  (outfile,"  (level  °/.d  i_col  °/,d  i_row  °/,d  h_size  7.d  v_size  °/„d)\n", 
level ,h_init ,v_init ,h_size ,v_size) ; 

} 

f close (outfile) ; 
return; 
} 


void  end_write_lisp_win_id(char  *file,  int  level) 
-C 

FILE  *outfile; 

char  file.nl [STRING],  f ile_n2 [STRING] ; 

strcpy(f ile_nl,f ile) ; 
sprintf  (file_n2 ,  "l°/,d" ,  level) ; 
strcat(file_nl,f ile_n2) ; 
strcat(file_nl," .lisp") ; 
outfile  =  fopen(file_nl,"a") ; 

if  (outfile  ==  NULLH 

printf  ("\nError  writing  to  file  '/,s\n"  ,f  ile)  ; 

exit(O) ; 
} 
else{ 

fprintf (outfile, "))\n") ; 
} 

f close(outf ile) ; 
return; 
} 

void  scan_picture (double  *in,  Feature_Node  *out,  int  level,  int  h_level_size, 

int  v_level_size,  char  *name,  char  *win_id) 
{ 

int  window  =  0; 

int  h_init  =  0,  h_size  =  h_level_size,  v_init  =  0,  v_size  =  v_level_size ; 

int  win.min  =  h_level_size  »  SCAN_WIN; 

init_write_lisp_scan(name,  level); 
init_write_lisp_win_id(win_id,  level) ; 

/♦rectangular  template  for  b45*/ 
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v_size  =  28; 
h_size  =  36; 

for(v_init  =  0;  v_init+v_size  <=  v_level_size;  v_init+=SCAN_STEP) 
for(h_init  =  0;  h_init+h_size  <=  h_level_size;  h_init+=SCAN_STEP){ 

find_scan_list .highest (in,  out,  h_init,  h_size,  v_init,  v_size, 
level) ; 
write_wav_scan_level_high_to_disk(out ,  name,  level,  h_size,  v_size, 
window,  h_init,  v_init) ; 

write_lisp_scan(out ,  name,  level,  h_init,  h_size,  v_init,  v_size) ; 
write_lisp_win_id(win_id,  level,  h_init,  h_size,  v_init,  v_size) ; 
window++; 
> 

/♦rectangular  template  for  f45*/ 
v_size  =  36; 
h_size  =  45; 

for(v_init  =  0;  v_init+v_size  <=  v_level_size;  v_init+=SCAN_STEP) 
for(h_init  =  0;  h_init+h_size  <=  h_level_size;  h_init+=SCAN_STEP){ 

f ind_scan_list_highest(in,  out,  h_init,  h_size,  v_init,  v_size, 
level) ; 
write_wav_scan_level_high_to_disk(out ,  name,  level,  h_size,  v_size, 
window,  h_init,  v_init) ; 

write_lisp_scan(out ,  name,  level,  h_init,  h_size,  v_init,  v_size) ; 
write_lisp_win_id(win_id,  level,  h_init,  h_size,  v_init,  v_size) ; 
window++; 
} 

/♦rectangular  template  for  k45+/ 
v_size  =  27; 
h_size  =  34; 

for(v_init  =  0;  v_init+v_size  <=  v_level_size;  v_init+=SCAN_STEP) 
for(h_init  =  0;  h_init+h_size  <=  h_level_size;  h_init+=SCAN_STEP){ 

f ind_scan_list_highest(in,  out,  h_init,  h_size,  v_init,  v_size, 
level) ; 
write_wav_scan_level_high_to_disk(out ,  name,  level,  h_size,  v_size, 
window,  h_init,  v_init) ; 

write_lisp_scan(out ,  name,  level,  h_init,  h_size,  v_init,  v_size) ; 
write_lisp_win_id(win_id,  level,  h_init,  h_size,  v_init,  v_size) ; 
window++; 
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/♦rectangular  vertical  scanning*/ 
v_size  =  v_level_size  »  2; 
h_size  =  h_level_size; 

for(h_init  =  0;  h_init+h_size  <=  h_level_size;  h_init+=SCAN_STEP) 
for(v_init  =  0;  v_init+v_size  <=  v_level_size;  v_init+=SCAN_STEP){ 

f ind_scan_list_highest (in,  out,  h_init,  h_size,  v_init,  v_size, 
level) ; 
write_wav_scan_level_high_to_disk(out ,  name,  level,  h_size,  v_size, 
window,  h_init,  v_init) ; 

write_lisp_scan(out ,  name,  level,  h_init,  h_size,  v_init,  v_size) ; 
write_lisp_win_id(win_id,  level,  h_init,  h_size,  v_init,  v_size) ; 
window++ ; 

} 
/♦end  rectangular  vertical  scanning*/ 

/♦rectangular  horizontal  scanning*/ 
v_size  =  v_level_size; 
h_size  =  h_level_size  »  2; 

for(v_init  =  0;  v_init+v_size  <=  v_level_size;  v_init+=SCAN_STEP) 
for(h_init  =  0;  h_init+h_size  <=  h_level_size;  h_init+=SCAN_STEP){ 

f ind_scan_list_highest(in,  out,  h_init,  h_size,  v_init,  v_size, 
level) ; 
write_wav_scan_level_high_to_disk(out ,  name,  level,  h_size,  v_size, 
window,  h_init,  v_init) ; 

write_lisp_scan(out ,  name,  level,  h_init,  h_size,  v_init,  v_size) ; 
write_lisp_win_id(win_id,  level,  h_init,  h_size,  v_init,  v_size) ; 
window++ ; 
} 
/*end  rectangular  horizontal  scanning*/ 

/♦rectangular  vertical  scanning^/ 
h.size  =  (int) (3.0/4. 0+h_level_size) ; 
v_size  =  v_level_size  >>  2; 

for(h_init  =  0;  h_init+h_size  <=  h_level_size;  h_init+=SCAN_STEP) 
for(v_init  =  0;  v_init+v_size  <=  v_level_size;  v_init+=SCAN_STEP){ 

f ind_scan_list_highest (in,  out,  h_init,  h_size,  v_init,  v_size, 
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level) ; 
write_wav_scan_level_high_to_disk(out ,  name,  level,  h_size,  v_size, 
window,  h_init,  v_init) ; 

write_lisp_scan(out,  name,  level,  h_init,  h_size,  v_init,  v_size) ; 
write_lisp_win_id(win_id,  level,  h_init,  h_size,  v_init,  v_size) ; 
window++ ; 
} 
/♦end  rectangular  vertical  scanning*/ 

/♦rectangular  horizontal  scanning*/ 
h_size  =  h_level_size  »  2; 
v_size  =  (int) (3.0/4. 0+v_level_size) ; 

for(v_init  =  0;  v_init+v_size  <=  v_level_size;  v_init+=SCAN_STEP) 
for(h_init  =  0;  h_init+h_size  <=  h_level_size;  h_init+=SCAN_STEP){ 

f ind_scan_list_highest(in,  out,  h_init,  h_size,  v_init,  v_size, 
level) ; 
write_wav_scan_level_high_to_disk(out ,  name,  level,  h_size,  v_size, 
window,  h_init,  v_init) ; 

write_lisp_scan(out ,  name,  level,  h_init,  h_size,  v_init,  v_size) ; 
write_lisp_win_id(win_id,  level,  h_init,  h_size,  v_init,  v_size) ; 
window++; 

} 
/♦end  rectangular  horizontal  scanning^/ 

h_size  =  (int) (h_level_size+0.6) ; 
v_size  =  v_level_size  >>  2; 

for(h_init  =  0;  h_init+h_size  <=  h_level_size;  h_init+=SCAN_STEP) 
for(v_init  =  0;  v_init+v_size  <=  v_level_size;  v_init+=SCAN_STEP){ 

f ind_scan_list_highest(in,  out,  h_init,  h_size,  v_init,  v_size, 
level) ; 
write_wav_scan_level_high_to_disk(out ,  name,  level,  h_size,  v_size, 
window,  h_init,  v_init) ; 

write_lisp_scan(out ,  name,  level,  h_init,  h_size,  v_init,  v_size) ; 
write_lisp_win_id(win_id,  level,  h_init,  h_size,  v_init,  v_size) ; 
window++; 

} 
h_size  =  h_level_size  »  2; 
v_size  =  (int) (v_level_size+0.6)  ; 
for(v_init  =  0;  v_init+v_size  <=  v_level_size;  v_init+=SCAN_STEP) 

for(h_init  =  0;  h_init+h_size  <=  h_level_size;  h_init+=SCAN_STEP){ 
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f ind_scan_list_highest (in,  out,  h_init,  h_size,  v_init,  v_size, 
level) ; 
write_wav_scan_level_high_to_disk(out ,  name,  level,  h_size,  v_size, 
window,  h_init,  v_init) ; 

write_lisp_scan(out ,  name,  level,  h_init,  h_size,  v_init,  v_size) ; 
write_lisp_win_id(win_id,  level,  h_init,  h_size,  v_init,  v_size) ; 
window++; 
} 

end_write_lisp_scan(name,  level); 
end_write_lisp_win_id(win_id,  level) ; 
return; 
} 
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APPENDIX  E.  LISP  CODE  FOR 
RECOGNITION 
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****************************************************************** 

File:  recon.lisp 

Name : Jader  Gomes  da  Silva  Filho 

Date: 08/14/97 

Operating  Environment:  SUN 

Language :  LISP 
****************************************************************** 


(defun  initialize  (weights  ids  win_ids) 

(load_weights  weights) 

(load_ids  ids) 

(load_win_id  win_ids) 
) 


Load  values  for  the  weights 


(defun  load_weights  (weights) 

(setf  pathname  (make -pathname  :name  weights)) 

(with-open-f ile  (str  pathname  : direction  : input  : if-does-not-exist  : error) 
(do  ((expression  (read  str  nil  'eof) 
(read  str  nil  'eof))) 

((eql  expression  'eof)) 
(eval  expression))) 
) 


Load  values  for  the  inputs 


(defun  load_inputs  (inputs) 

(setf  pathname  (make-pathname  :name  inputs)) 

(with-open-f ile  (str  pathname  : direction  : input  : if-does-not-exist  : error) 
(do  ((expression  (read  str  nil  'eof) 
(read  str  nil  'eof))) 

((eql  expression  'eof)) 
(eval  expression))) 
) 
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; ;  Load  values  for  the  inputs 


(defun  load_ids  (ids) 

(setf  pathname  (make-pathname  :name  ids)) 

(with-open-f ile  (str  pathname  : direction  : input  : if-does-not-exist  : error) 
(do  ((expression  (read  str  nil  'eof) 
(read  str  nil  'eof))) 

((eql  expression  'eof)) 
(eval  expression))) 
) 


Load  values  for  the  inputs 


(defun  load_win_id  (win_ids) 

(setf  pathname  (make -pathname  :name  win_ids)) 

(with-open-f ile  (str  pathname  : direction  : input  : if-does-not-exist  : error) 
(do  ((expression  (read  str  nil  'eof) 
(read  str  nil  'eof))) 

((eql  expression  'eof)) 
(eval  expression))) 
) 


Genetates  a  list  of  repeated  inputs  of  the  same  size  of 
the  weigth  list. 

(defun  make_input_list  (input  w_list) 
(list_of  (length  w_list)  input)) 


this  provides  a  standard  activation 
function  for  a  neural  net — the  logistic 
sigmoid  function 
f(x)  =  1  /  (1  +  e  (-x)) 


(defun  sigmoid  (x) 

(/  (  +  1  (exp  (-  x))))) 
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this  does  summation  on  a  vector 

>  (summation  vector) 

>  (summation  '(2.0  3.0  2.6)) 
7.6 


(defun  summation  (vector) 
(eval 

(cons  '+   vector))) 


this  does  multiplication  of  two  vectors 

>  (vector_multiply  '(0  1  1)  '(-4.8  5.2  -2.3)) 
(0  5.2  -2.3) 


(defun  vector_multiply  (vectorl  vector2) 
(mapcar  #'*  vectorl  vector2)) 


this  makes  a  list  n  elements  long  of  elt 

>  (list-of  3  2.0) 
(2.0  2.0  2.0) 


(defun  list_of  (n  elt) 
(if  (zerop  n) 
nil 
(cons  elt  (list_of  (  -  n  1)  elt)))) 


this  does  sum  of  two  vectors 

>  (vector.sum  '(0  1  1)  '(-4.8  5.2  -2.3)) 
(-4.8  6.2  -1.3) 


(defun  vector_sum  (vectorl  vector2) 
(mapcar  #'+  vectorl  vector2)) 
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Evaluates  one  node  according  to  a  list  of  inputs 
and  a  list  of  weigths  for  that  node 

>  (node.eval  '(0  0  1)  '(-4.8  4.6  -2.6)) 

0.06913843 

(defun  node_eval  (inputs  weigths) 

(sigmoid  (summation  (vector_multiply  inputs  weigths)))) 


Evaluates  one  level,  generating  a  list  of  values 
that  will  be  the  input  for  the  next  level 

>  (level_eval  • (0  0)  inp_wlist) 
(0.06913843  0.03916572) 

(defun  level_eval  (input  w_list) 

(mapcar  #'node_eval  (make_input_list  input  w_list)  w_list)) 


Does  the  usual  forward  evaluation,  saving  the  values 
of  the  hidden  level 
(defun  forward_eval  (input  w_listl  w_list2) 
(if  (=  (nth  2  input)  0.0) 
nil 
(level_eval  (level_eval  input  w_listl)  w_list2)) 
) 


output  results 

(defun  print _results  (input  output  nice_output) 

(format  t  "~7,Input :  ~A~°/,0utput :  ~A~7.Nice  Output :  ~A~7."  input  output  nice_output) 

(setf  pathname  (make-pathname  :name  "output.dat")) 

(setf  outfile  (open  pathname  : direction  : output  : if -exists  : rename 
: if-does-not-exist  : create)) 

(format  outfile  "~7.Input :~A~7.0utput :  ~A~7,Nice  Output :  ~A~7." 

input  output  nice_output) 

(close  outfile) 
) 
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remove-element 

(remove-element  0  '(1234)) 
(2  3  4) 
(defun  remove-element  (elem  list) 

(append  (subseq  list  0  elem)  (subseq  list  (1+  elem)))) 


Does  the  usual  forward  evaluation 

(forward_eval_ inputs  '((2  3  0)  (2  4  5))  '((.5  .4  .3) (.5  .4  .3) (.5  .4  .3)) 

'((.5  .1  .2)(.5  .1  .2))) 
((0.6768457  0.6768457)  (0.6871778  0.6871778)) 

(defun  forward_eval_inputs  (input  w_listl  w_list2) 
(if  (car  input) 

(append  (list  (forward_eval  (car  input)  w_listl  w_list2)) 
(f orward_eval_inputs  (rest  input)  w_listl  w_list2)) 
nil 
) 
) 


User  Round  function 


(defun  user_round  (input) 
(let  ((value  (car  input))) 
(if  value 
(if  (<  value  0.5) 

(cons  (floor  value)  (user_round  (rest  input))) 
(cons  (ceiling  value)  (user_round  (rest  input)))) 
nil) 
) 
) 


Round  the  results  to  0's  and  l's 
(round.outputs  '((0.6871778  0.6871778)  nil  (0.6871778  0.6871778))) 
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;;((1  1)  nil  (1  1)) 

(defun  round_outputs  (output) 

(mapcar  #'user_round  output) 
) 


CALCULATE  ERROR  VECTOR  FOR  OUTPUT  NODES 
this  compares  calculated  output  with 
expected  output .  And  save  the  errors  in  the 
variable  SAVED_ERR0R_0UT 

(calc_output_error  '(1.0  0.0)  '(0.88  0.13)) 
0.08845903 
(defun  calc_output_error  (exp_output  calc_output) 

(setf  SAVED_ERR0R_0UT 
(mean_sq_error  (mapcar  #'-  exp_output  calc_output)))) 


function  user  to  calculate  the  square  root  of  the 
mean  of  the  errors 
(defun  mean_sq_error  (w_list) 
(if  (null  w_list) 
nil 
(/  (sqrt(summation(vector_multiply  w_list  w_list)))  (length  w_list)))) 


function  user  to  calculate  the  mean  error  of  several 

inputs 

(error.list  '((1.0  0.0))  '((0.88  0.13))) 

(0.08845903) 
(defun  error_list  (output  nice_output) 

(mapcar  #'calc_output_error  output  nice_output) 
) 

(defun  find_first  (inp_list) 
(find-if  #' (lambda  (x) 
«  x  0.003)) 
inp_list) 
) 
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; ;  Find  best  id 

(defun  find_best  (id_list) 
(cond 
((null  id.list) 
(cond 

((and  (car  sol8)  (<  (car 

((and  (car  sol7)  (<  (car 

((and  (car  sol6)  (<  (car 

((and  (car  sol5)  (<  (car 

((and  (car  sol4)  (<  (car 

((and  (car  sol3)  (<  (car 

((and  (car  sol2)  (<  (car 

((and  (car  soil)  (<  (car 


sol8) 

solthres)! 

)  (cons 

8 

sol8)) 

sol7) 

solthres)! 

)  (cons 

7 

sol7)) 

sol6) 

solthres); 

)  (cons 

6 

sol6)) 

sol5) 

solthres); 

)  (cons 

5 

sol5)) 

sol4) 

solthres)! 

)  (cons 

4 

sol4)) 

sol3) 

solthres); 

)  (cons 

3 

sol3)) 

sol2) 

solthres)! 

)  (cons 

2 

sol2)) 

soil) 

solthres)! 

)  (cons 

1 

soil)) 

)) 


((and 

(caadr  id_list)  (caaddr  id_list)  (caar  (cdddr  id_list)) 

(caar  (cddddr  id_list))  (caar  (nthcdr  5  id_list)) 

(caar  (nthcdr  6  id_list))  (caar  (nthcdr  7  id_list)) 

(<  (abs  (-  (caar  id_list)  (caadr  id_list)))  acceptdif) 

(equal  (nth  2  (car  id_list))  (nth  2  (cadr  id_list))) 

(<  (abs  (-  (caar  id_list)  (caaddr  id_list)))  acceptdif) 

(equal  (nth  2  (car  id.list))  (nth  2  (caddr  id_list))) 

(<  (abs  (-  (caar  id_list)  (caar  (cdddr  id_list))))  acceptdif) 

(equal  (nth  2  (car  id_list))  (nth  2  (cadddr  id_list))) 

(<  (abs  (-  (caar  id_list)  (caar  (cddddr  id_list))))  acceptdif) 

(equal  (nth  2  (car  id_list))  (nth  2  (car  (cddddr  id_list)))) 

(<  (abs  (-  (caar  id_list)  (caar  (nthcdr  5  id_list))))  acceptdif) 

(equal  (nth  2  (car  id.list))  (nth  2  (car  (nthcdr  5  id_list)))) 

(<  (abs  (-  (caar  id_list)  (caar  (nthcdr  6  id_list))))  acceptdif) 

(equal  (nth  2  (car  id.list))  (nth  2  (car  (nthcdr  6  id_list)))) 

(<  (abs  (-  (caar  id_list)  (caar  (nthcdr  7  id_list))))  acceptdif) 

(equal  (nth  2  (car  id.list))  (nth  2  (car  (nthcdr  7  id_list))))) 

(if  (and  (<  (caar  id_list)  better8)  (>  (caar  id_list)  thres)) 
(setf  better8  (caar  id_list) 
sol8  (nth  4  id_list))) 

(find_best  (nthcdr  8  id_list))) 


((and 

(caadr  id_list)  (caaddr  id_list)  (caar  (cdddr  id_list)) 
(caar  (cddddr  id.list))  (caar  (nthcdr  5  id_list)) 
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(caar  (nthcdr  6  id_list)) 

(<  (abs  (-  (caar  id_list)  (caadr  id_list)))  acceptdif) 

(equal  (nth  2  (car  id_list))  (nth  2  (cadr  id.list))) 

(<  (abs  (-  (caar  id_list)  (caaddr  id_list)))  acceptdif) 

(equal  (nth  2  (car  id.list))  (nth  2  (caddr  id_list))) 

(<  (abs  (-  (caar  id_list)  (caar  (cdddr  id_list))))  acceptdif) 

(equal  (nth  2  (car  id_list))  (nth  2  (cadddr  id_list))) 

(<  (abs  (-  (caar  id_list)  (caar  (cddddr  id.list))))  acceptdif) 

(equal  (nth  2  (car  id_list))  (nth  2  (car  (cddddr  id_list)))) 

(<  (abs  (-  (caar  id_list)  (caar  (nthcdr  5  id_list))))  acceptdif) 

(equal  (nth  2  (car  id_list))  (nth  2  (car  (nthcdr  5  id_list)))) 

(<  (abs  (-  (caar  id_list)  (caar  (nthcdr  6  id_list))))  acceptdif) 

(equal  (nth  2  (car  id_list))  (nth  2  (car  (nthcdr  6  id_list))))) 

(if  (and  (<  (caar  id_list)  better7)  (>  (caar  id_list)  thres)) 
(setf  better7  (caar  id_list) 
sol7  (nth  3  id_list))) 

(find_best  (nthcdr  7  id_list))) 
((and 

(caadr  id_list)  (caaddr  id_list)  (caar  (cdddr  id_list)) 

(caar  (cddddr  id_list))  (caar  (nthcdr  5  id_list)) 

(<  (abs  (-  (caar  id_list)  (caadr  id_list)))  acceptdif) 

(equal  (nth  2  (car  id.list))  (nth  2  (cadr  id_list))) 

(<  (abs  (-  (caar  id_list)  (caaddr  id_list)))  acceptdif) 

(equal  (nth  2  (car  id_list))  (nth  2  (caddr  id_list))) 

(<  (abs  (-  (caar  id_list)  (caar  (cdddr  id_list))))  acceptdif) 

(equal  (nth  2  (car  id_list))  (nth  2  (cadddr  id_list))) 

(<  (abs  (-  (caar  id_list)  (caar  (cddddr  id_list))))  acceptdif) 

(equal  (nth  2  (car  id_list))  (nth  2  (car  (cddddr  id_list)))) 

(<  (abs  (-  (caar  id_list)  (caar  (nthcdr  5  id_list))))  acceptdif) 

(equal  (nth  2  (car  id.list))  (nth  2  (car  (nthcdr  5  id.list))))) 

(if  (and  (<  (caar  id.list)  better6)  (>  (caar  id_list)  thres)) 
(setf  better6  (caar  id_list) 
sol6  (nth  3  id.list))) 

(find_best  (nthcdr  6  id_list))) 
((and 

(caadr  id_list)  (caaddr  id_list)  (caar  (cdddr  id_list)) 

(caar  (cddddr  id_list)) 

(<  (abs  (-  (caar  id_list)  (caadr  id_list)))  acceptdif) 

(equal  (nth  2  (car  id_list))  (nth  2  (cadr  id_list))) 

(<  (abs  (-  (caar  id_list)  (caaddr  id_list)))  acceptdif) 

(equal  (nth  2  (car  id_list))  (nth  2  (caddr  id_list))) 

(<  (abs  (-  (caar  id_list)  (caar  (cdddr  id_list))))  acceptdif) 
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(equal  (nth  2  (car  id.list))  (nth  2  (cadddr  id_list))) 
(<  (abs  (-  (caar  id_list)  (caar  (cddddr  id_list))))  acceptdif) 
(equal  (nth  2  (car  id_list))  (nth  2  (car  (cddddr  id_list))))) 
(if  (and  (<  (caar  id_list)  better5)  (>  (caar  id_list)  thres)) 
(setf  better5  (caar  id.list) 
sol5  (nth  2  id.list))) 
(find_best  (nthcdr  5  id_list))) 
((and 

(caadr  id_list)  (caaddr  id_list)  (caar  (cdddr  id_list)) 
(<  (abs  (-  (caar  id_list)  (caadr  id_list)))  acceptdif) 
(equal  (nth  2  (car  id_list))  (nth  2  (cadr  id.list))) 
(<  (abs  (-  (caar  id_list)  (caaddr  id_list)))  acceptdif) 
(equal  (nth  2  (car  id.list))  (nth  2  (caddr  id_list))) 
(<  (abs  (-  (caar  id_list)  (caar  (cdddr  id_list))))  acceptdif) 
(equal  (nth  2  (car  id.list))  (nth  2  (cadddr  idJList)))) 
(if  (and  (<  (caar  id_list)  better4)  (>  (caar  id_list)  thres)) 
(setf  better4  (caar  id_list) 
sol4  (nth  2  id_list))) 
(find_best  (nthcdr  4  id_list))) 
((and 

(caadr  id_list)  (caaddr  id_list) 

(<  (abs  (-  (caar  id_list)  (caadr  id_list)))  acceptdif) 
(equal  (nth  2  (car  id_list))  (nth  2  (cadr  id_list))) 
(<  (abs  (-  (caar  id_list)  (caaddr  id_list)))  acceptdif) 
(equal  (nth  2  (car  id.list))  (nth  2  (caddr  id_list)))) 
(if  (and  (<  (caar  id_list)  better3)  (>  (caar  id_list)  thres)) 
(setf  better3  (caar  id_list) 
sol3  (nth  1  id_list))) 
(find_best  (nthcdr  3  id.list))) 
((and 

(caadr  id_list) 

(<  (abs  (-  (caar  id_list)  (caadr  id_list)))  acceptdif) 
(equal  (nth  2  (car  id.list))  (nth  2  (cadr  id.list)))) 
(if  (and  (<  (caar  id_list)  better2)  (>  (caar  id_list)  thres)) 
(setf  better2  (caar  id_list) 
sol2  (nth  1  id.list))) 
(find_best  (nthcdr  2  id_list))) 
((and  (<  (caar  id_list)  betterl)  (>  (caar  id_list)  thres)) 
(setf  betterl  (caar  id_list) 
soil  (nth  0  id_list)) 

(find_best  (cdr  id_list))) 
(t  (find.best  (cdr  id.list))) 
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) 
) 


; ;  Find  best  id 

(defun  find_best_id  (output  nice_output) 
(let* 

((list_error  (error_list  output  nice_output)) 
(minima  (find_first  list_error)) 

(pos  (position  minima  list_error  :test  #'equal)) 
(result  (nth  pos  nice_output))) 
(if  (<  minima  0.5) 
(list  'Error  minima  (nth  pos  *win_id3*) 
(car  (nth 
(position  result  *id_list3*  :key  #'cadr  :test  #' equal) 
*id_list3*))) 

'(N0_RESULTS  1))) 
) 


; ;  Find  id 

(defun  find_id  (output  nice_output) 
(mapcar  #' (lambda  (e  x  y) 

(if  e 
(list  e  y  (car 
(nth 
(position  x  *id_list3*  :key  #'cadr 
:test  #'equal)  *id_list3*))) 
nil)) 

(error_list  output  nice_output)  nice_output  *win_id3*) 
) 

(find.id  '((0.6871778  0.6871778)  nil  (0.6871778  0.6871778)) 

'((1  1)  nil  (1  1))) 

(error.list  '((0.6871778  0.6871778)  nil  (0.6871778  0.6871778)) 

'((1  1)  nil  (1  1))) 

(0.22119872  nil  0.22119872) 

; ;  Utility  Functions  to  count  the  number  of  identifications  of  a  kind 
(defun  compress  (x) 
(if  (consp  x) 
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(compr  (car  x)  1  (cdr  x)  (caar  x)) 


x)) 


(defun  compr  (elem  n  1st  summ) 
(if  (null  1st) 

(list  (n-elems  elem  n  summ)) 
(let  ((next  (car  1st))) 

(if  (string=  (nth  2  next)  (nth  2  elem)) 
(compr  elem  (+  n  1)  (cdr  1st)  (+  (nth  0  next)  summ)) 
(cons  (n-elems  elem  n  summ) 

(compr  next  1  (cdr  1st)  (car  next))))))) 

(defun  n-elems  (elem  n  summ) 
(list  (/  summ  n)  n  elem) 
) 


Function  to  find  the  best  result  for  a  single  NN  System 


(defun  recon  (input) 

(setf 

thresl  0.0) 

(setf 

thres  0.0) 

(setf 

solthres  0.5) 

(setf 

acceptdif  le-8) 

(setf 

betterl  1.0) 

(setf 

soil  '()) 

(setf 

better2  1.0) 

(setf 

sol2  '()) 

(setf 

better3  1.0) 

(setf 

sol3  '()) 

(setf 

better4  1.0) 

(setf 

sol4  '()) 

(setf 

better5  1.0) 

(setf 

sol5  '()) 

(setf 

better6  1.0) 

(setf 

sol6  '()) 

(setf 

better7  1.0) 

(setf 

sol7  '()) 

(setf 

better8  1.0) 
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(setf  sol8  '()) 

(setf  best_result  '()) 

(setf  output  (forward_eval_inputs  input  inp_wlist  hid_wlist)) 

(setf  nice_output  (round_outputs  output)) 

(setf  id_list_ori  (find_id  output  nice_output)) 

(setf  bestname  (make-pathname  :name  "idsori.txt")) 

(with-open-f ile  (str  bestname  : direction  : output  : if -exists  : rename 

: if-does-not-exist  : create) 
(format  str  "Ids  =  "A"0/,"0/,"  id_list_ori)) 

;;  this  block  eliminates  windows  32x32,  undefined  and  nil  errors 
(setf  id_list_ori  (remove-if  #' (lambda  (x) 
(or 
(string=  (nth  2  x)  'undefined) 
(and 
(equal  (nth  7  (cadr  x))  32) 
(equal  (nth  9  (cadr  x))  32)) 
(equal  x  nil))) 
id_list_ori)) 

(setf  id_list_max  (sort  (compress  (sort  (copy-list  id_list_ori) 
#' (lambda  (terml  term2) 
(string< 
(nth  2  terml) 
(nth  2  term2))))) 
#' (lambda  (terml  term2) 

(<  (nth  0  terml)  (nth  0  term2))))) 

(setf  maxname  (make-pathname  :name  "max.txt")) 

(with-open-f ile  (str  maxname  : direction  : output  : if -exists  : append 

: if-does-not-exist  : create) 
(format  str  "Ids  =  ~A~°/,~°/,"  id_list_max)) 

(setf  id_list_best  (find-if 

#' (lambda  (x) 
(and 
(>  (cadr  x)  5) 

(not  (string=  (nth  2  (nth  2  x))  'undefined)))) 
id_list_max)) 

(setf  bestname  (make-pathname  :name  "best.txt")) 
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(with-open-f ile  (str  bestname  : direction  : output  : if -exists  : append 

: if -does-not-exist  : create) 
(format  str  "Ids  =  ~A~°/,~7,"  id_list_best)) 


(setf  idsname  (make-pathname  :name  "ids.txt")) 

(with-open-f ile  (str  idsname  : direction  : output  : if -exists  : append 

: if -does-not-exist  : create) 
(format  str  "Ids  =  ~A~° /,"  id_list_ori)) 

(setf  best_result  (find_best  id_list_ori)) 

(setf  best_result  (substitute  '(1.0)  nil 
(list  sol3  sol4  sol5  sol6  sol7  sol8))) 

(setf  pos_best  (position  (eval 

(cons  'min  (mapcar  #'car  best_result))) 
best_result  :key  #'car  :test  #' equal)) 
(setf  best_result 
(cons  (+  pos_best  3)  (nth  pos_best  best_result))) 

(with-open-f ile  (str  resultname  : direction  : output  : if -exists  : append 
: if -does-not-exist  : create) 

(format  str  "-/.ALL  =  "A"'/." 

(list  (cons  1  soil) 
(cons  2  sol2) 
(cons  3  sol3) 
(cons  4  sol4) 
(cons  5  sol5) 
(cons  6  sol6) 
(cons  7  sol7) 
(cons  8  sol8)))) 

(setf  resname  (make-pathname  :name  "res.txt")) 

(with-open-f  ile  (str  resname  :  direction  -.output  :  if -exists  :  append 

: if -does-not-exist  : create) 
(format  str  "Best  Temp.Id  =  ~A~7.Best_Win__Id  =  ~A~%" 
best_result  id_list_best)) 

(format  t  "Best  Temp_Id  =  ~A~°/.Best_Win_Id  =  ~A~°/0"  best_result  id_list_best) 
'DONE 
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Main  function 


(defun  recon_all  () 
(setf  result.list  * ()) 

(setf  resultname  (make-pathname  :name  "recon.txt")) 
(with-open-f ile  (str  resultname  : direction  : output  : if -exists  : append 

:if-does-not-exist  : create)) 
(initialize  "weights. lisp"  "idl3all.lisp"  "win_idl3.1isp") 
(scan) 
(if  (car  best_result) 

(setf  result_list  (cons  best_result  result_list))) 

To  be  used  with  multiple  NN  System 
(initialize  "weightsb.lisp"  "idl3b.lisp"  "win_idl3.1isp") 
(scan) 
(if  (car  best_result) 

(setf  result_list  (cons  best_result  result_list))) 
(initialize  "weightsf .lisp"  "idl3f.lisp"  "win_idl3.1isp") 
(scan) 
(if  (car  best_result) 

(setf  result_list  (cons  best .result  result_list))) 
(initialize  "weightsk.lisp"  "idl3k.lisp"  "win_idl3.1isp") 
(scan) 
(if  (car  best.result) 

(setf  result_list  (cons  best_result  result_list))) 

(if  (car  result_list) 

(setf  best_id  (nth  (position  (eval 
(cons  'min  (mapcar  #'cadr  result_list))) 
result_list  :key  #;cadr  :test  #' equal) 
result_list))) 
(with-open-f ile  (str  resultname  : direction  : output  : if -exists  : append 

: if-does-not-exist  : create) 
(if  (and  best_id  (<  (cadr  best_id)  solthres)) 
(format  str  "Best  Id  =  ~A~%" 
best_id) 
(format  str  "NO  RESULTS"))) 
(format  t  "Best  Id  =  ~A~7,"  best_id) 
'DONE 
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APPENDIX  F.  C  CODE  FOR  EDGE 
DETECTION 
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/*   FILENAME:  edge_types .h 

/*    CHANGES:  Jader  Gomes  da  Silva  Filho 

/*   Last  Update:  12/20/96 

/♦DESCRIPTION:  Type  definitions  for  edge  detection 

/*****************************************^ 


struct  point_type 
{ 

double  x,y;  /*  x,y  coordinates  of  the  pixel  endpoints  */ 

}; 

typedef  struct  point _type  POINT; 


typedef  struct  line_type 

{ 

char  name [3];   /*  for  troubleshooting  */ 

POINT  pi,  p2;   /*  the  2  endpoints  for  the  line  */ 

/*  Least  Squares  Fit  momments :  */ 

double  nn;  /*  changed  */ 

double  mOO;    /*  Number  of  pixels  should  be  long*/ 

double  mlO;    /*  Sum  x  */ 

double  mOl;    /*  Sum  y  */ 

double  mil;    /*  Sum  x*y  */ 

double  m20;    /*  Sum  x*x  */ 

double  m02;    /*  Sum  y*y  */ 

double  phi;    /*  Calculated  normal  orientation  of  IMG_LINE  */ 

double  dmajor;  /*  Length  of  major  axis  of  equivallent  ellipse  */ 
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double  dminor;  /*  Length  of  minor  axis  of  equivallent  ellipse  */ 

double  rho;    /*  Ratio  dminor/dmajor  */ 

/*  Pattern  Matching  Information:  */ 

double    angle_to_image_center; 

int  *matchlist;/*  Bogus  pointers  for  IMG_LINE  *create_line(EDGE  *r,...)  */ 

/*  in  'edgesupport .c' .  */ 
int  *pm;       /*  These  pointers  are  required  for  matching  and  are 
declared  as  (MATCHTYPE  *)s  in  'match_types .h'  */ 

struct  line_type  *next;  /*  ptr  to  the  next  IMG_LINE  in  the  image  */ 

}  IMG.LINE; 


typedef  struct  edge_region_type 
{ 

long   first_pixel; 

long   last_pixel  ; 

double  avg_phi; 

double  sum_phi; 

double  nn;/*  changed  */ 

double  mOO 

double  mlO 

double  mOl 

double  mil 

double  m20 

double  m02; 

char  *region_number; 

struct  edge_region_type  *next  ; 
}  REGION; 


typedef  struct  pixel_info 
{ 

double  phi; 

REGION  *r; 

int  significant; 

char  *region_number ; 
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double  mag;/*  changed  */ 
}  PIXEL  ; 
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/*****************************************************************  +  +  *=);/ 


/*  FILENAME 

/*  AUTHOR 

/*  CHANGES 

/*  DATE 


edgesupport .h 

Khaled  Morsy  (some  parts  from  original  version  by  Peterson) 

Jader  Gomes  da  Silva  Filho 

11  October  1996 
/*   Last  Uppdate:  12/20/96 
/* 

/*   DESCRIPTION:  Collection  of  edge  finding  functions. 
/* 

/*   void  fatal (char  message) 

/*   int  gradient_angles_close (double  r, double  s) 
/*   int  close_to_negative_pi (double  phi) 
/*   int  horizontal (EDGE  *r) 
/*   EDGE  *create_edge(long  z, double  phi) 
/*   void  add_pixel_to_edge  (long  z,  double  phi,  EDGE  *r) 
/*   EDGE  *combine_edges(EDGE  *rl,  EDGE  *r2) 

/*   IMG.LINE  *create_line  (EDGE  *r,  double  M20,  double  Mil,  double  M02, 
/*  double  Dmajor,  double  Dminor,  double  Rho) 

/*   void  line_test  (EDGE  *r) 
/*   void  check_active_edges  () 

/*   void  rgbalong_to_bwlong  (long  rgbalong,  long  *bwlong) 
/*   void  pixel_membership  (long  z,  double  phi) 
/*   void  set_pixel_white  (long  *rgbalong) 
/*   void  set_pixel_black  (long  *rgbalong) 
/*   void  write_all_lines  (long  x,  long  y) 
/*   IMG_LINE  *fastlines  (NPSIMAGE  *img) 

m    «f»  <JC  3(C  iff.  3fC  *f.  «ft  zf.  Iff.  *£.  *£■   -J«  -T-  *f-   ^  ^  ^  ^  ^  ^  ^  ^-  ^  ^  ^-  ^  ^  ^  ^  ^  ^-  ^  ^  ^  ^  ^-  ^  ^  ^  *f*  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  / 

/*  Gradient  Magnitude  Threshold  -  for  fastlines(img)  */ 

#define  THRESHOLD  100.0 

/*  ANGLE  LIMIT  SUCH  THAT  A  LINE  IS  VERICAL  IF  ITS  ORIENTATION  EITHER  BETWEEN 

-1.8  DEG  TO  +1.8  DEG  OR  (  178.2  DEG  TO  181.8  DEG)  —  by  khaled  5-8-95  */ 
/*#define  VERT.LIMIT  .0314    /*  ABOUT  PI/100  """1.8  DEG  */ 

#define  VERT_LIMIT  .0174    /*  ABOUT  PI/18  ~~  10  DEG  */ 

/*  Gradient  Angular  Orientation  */ 

#define  MAX_DELTA_PHI   (PI+22/180)  /*  maximum  difference  (in  radians)*/ 
/*  Constants  for  function:   void  line_test  (EDGE  *r)  */ 
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#define  MIN_PIXELS_PER_LINE  30   /*  was  10  minimum  pixels  allowed  for  a  IMG_LI 
#define  MIN_DMAJ0R       15.0  /*was  10.0  *  minimum  major  axis  length  allowed  I 
#define  MAX_RH0  1.0   /*  maximum  ratio  (Rho=Dminor/Dmajor)  */ 

#define  PI  3.14159265 


/*  Global  variables  

FILE  *reg_file  ,  *image_out  ; 

long   Xdim; 

long   Ydim; 

int    Linecount  =  0; 

int    gray  ; 

int    reg_num  =  0; 

int    reg_count  =  0; 

char  * image.dat a [646] [486] ; 

int  count  =  0; 
/*  Pointers  to:  first  region  ,  last  region  and  IMG_LINE  list*/ 

REGION  *first_region  =  NULL; 
REGION  *last_region=  NULL   ; 


■*/ 


/*  width  of  input  image  (nr  pixels)  */ 

/*  width  of  input  image  (nr  pixels  */ 

/*  counter  for  number  of  IMG_LINEs  made  */ 

/*  added  by  khaled  1-8-95  */ 

/*  added  by  khaled  —  to  be  dele 


IMG.LINE   *Line_list_head  =  NULL; 
int  neighbor_included; 
double  min; 
FILE  *reg_file; 

FUNCTION  :  normalize () 

PURPOSE   :  return  the  normalized  value  of  orientation 


double  normalize (o) 

double  o; 

{ 

int  d  =  0; 
if(o>=-PI  &&  o  <PI)  return(o); 

d=(o+PI)/(2*PI)   ; 
if  (d>=0  &&  o  >  0.0) 

d=d+l  ; 
o  =  o  -(  2  *PI  *(d-D)  ; 
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return  (o) ; 


/******************************************************************* 

FUNCTION  :  convert () 

PURPOSE   :  return  the  charater  conversion  of  integer 
********************************************* 

char  ♦convert (n) 
int  n; 
{ 
char  *Y[10]  =  {"0","1",  "2" ,  "3"  ,   "4"  ,   "5"  ,   "6",   "7" ,   "8",   "9"}; 
return  Y[n]  ; 
} 

/********************************************************************/ 

void  update ( current, x,y) 

PIXEL  current  []  ; 

long  x,y; 

{ 

REGION  *reg; 

double  o; 


o=current[x] .phi; 
reg=current [x] .r; 

reg->last_pixel  =  (Xdim  *  y  +  x) ; 
reg->sum_phi+=o ; 
++reg->nn; 

reg->mOO+=current [x] .mag; 
reg->mlO+=current [x] . mag*x ; 
reg->m01+=current [x] .mag*y; 
reg->mll+=current [x] .mag*x*y; 
reg->m20+=current [x] .mag*x*x; 
reg->m02+=current [x] .mag*y*y; 
reg->avg_phi  =  reg->sum_phi  /  reg- 


/*added*/ 
/♦changed*/ 
/♦changed*/ 
/♦changed*/ 
/♦changed*/ 
/♦changed^/ 
/♦changed^/ 
>nn ; /♦changed^/ 


image_data[x] [y]  =  current [x] .region.number  ; 
/♦  fprintf  (reg_f  ile,"\n°/„d  °/.d  °/,d  '/,d"  ,x,y,  current  [x]  .region_number ,  reg  );  ♦/ 
/♦  printf  ("\nf  irst  7.d  ,  last  °/,d,  avg  phi  °/.lf "  ,reg->first .pixel,  reg->last_pixel 
,reg->avg_phi) ;♦/ 


/********************************************************************/ 
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void  comparel (current ,x,y) 
PIXEL  current  []  ; 
long  x,y; 
{ 

double  t; 

REGION  *current_region; 

t=  fabs (normalize (current  [x] .phi-current [x-1] .phi)) ; 

if  ((t<=  MAX_DELTA_PHI  )&&(current [x-1] .significant  ==  1)) 

{ 


min  =  t ; 

current [x] .r  =  current [x-1] .r; 
current [x] .region_number  =  current [x-1] .region.number  ; 
neighbor_included  =  1; 


void  compare2 (current ,prev,xl ,x2,y) 
PIXEL  current  []  ,prev[]  ; 
long  xl,x2,y; 
{ 

double  t ; 

REGION  *current_region; 

t=fabs (normalize (current [xl] .phi   -  prev[x2] .phi)) ; 


if    ((t<=  MAX_DELTA_PHI   )&&(prev[x2] . significant   ==   1)) 
{ 

if   (t<min) 
{ 

min  =  t ; 

current  [xl]  .r  =  prev[x2]  .r; 
current [xl] .region_number  =  prev[x2] . region_number    ; 
neighbor_included  =   1; 
} 
} 
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/*************************  +  Jt:  +++  +  ^++  +  +  +  +  +  ++++  +  +  +  +  +  +  +  +++  +  +  +++  +  +  +  +  +  +  +  +  ++^ 


REGION  *create_region(x,y,o,mag) 
long  x,y; 

double  o,mag;/*added  mag  to  the  function  call*/ 
{ 
REGION  *reg; 

if ((reg= (REGION  *)  malloc(sizeof (REGION)) )==NULL) 

printf ("Error  creating  Region"); 
++reg_count ; 

reg->first_pixel  =  (Xdim  *  y  +  x) ;  if(  reg->f irst.pixel  <  0)  printf ("ERROR") ; 
reg->last_pixel  =   (Xdim  *  y  +  x) ; 
reg->avg_phi  =  o; 
reg->sum_phi  =  o ; 
reg->nn  =  1.0;      /*added*/ 
reg->m00  =  mag;     /*changed*/ 
reg->mlO  =  mag*x;   /*changed*/ 
reg->m01  =  mag*y;    /*changed*/ 
reg->mll  =  mag*x*y;  /*changed*/ 
reg->m20  =  mag*x*x;  /*changed*/ 
reg->m02  =  mag*y*y;  /*changed*/ 
reg->region_number  =  convert (reg_num) ; 
reg->next  =  NULL; 


if (f irst_region  ==  NULL) 
first_region  =  reg; 

if (last.region  !=  NULL) 
last_region->next=reg : 

last_region=reg ; 


return (reg) ; 

} 


void  pixel_membership (current , prev , x , y , o) 
PIXEL  current  [], prev  []  ; 
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long  x,y; double  o; 

{ 

REGION  *reg; 
/*  if(y  >  484) 

{printf ("invalid  y  "); 
exit(-l) ; 
} 
*/ 

if  (x  >  1) 
{ 

compare 1 (current ,x,y) ; 

if  (y  >  1) 

{ 

compare2 ( current ,prev,x,x-l,y) ; 

} 
} 

if  (y  >  1) 
{ 

compare2 (current ,prev,x,x,y) ; 
compare2 (current ,prev,x,x+l,y) ; 
} 

if  (neighbor_included  ==  0) 

{ 
/♦added  mag  to  the  function  call*/ 
reg  =  create_region(x,y,o, current [x] .mag) ; 

count++; 

current [x] .region.number  =  convert (reg_num) ; 

image_data[x] [y]  =  current [x] .region_number  ; 

reg_num++  ; 

if  (reg_num  >  9) 

reg_num=0 ; 
current [x] .r  =  reg; 


if  (neighbor_included  ==  1) 
{ 

update (current ,x,y) ; 

} 


172 


/*printf("7.d  y  =  7,d",  y);*/ 

if(x  >  365  &&  x<  399) 

fprintf  (reg_file,"\n7.d  °/,d  7.s"  ,x,y, current  [x]  .region_number)  ; 
/*fprintf(reg_file,"\n,/.d  7,d  7.s"  ,x,y, current  [x]  .r)  ;*/ 


} 

/* +/ 

/*  void  fatal  (char  message) 
/* 

/*   Prints  error  message  and  exits  out  of  the  program. 

/* */ 

fatal (message) 

char  *message; 

{ 

fprintf (stderr,  "Fatal  ERROR:  "); 

perror (message) ; 

exit(-l);       /*  exit  by  failure  */ 

} 

/* */ 

/*  int  close_to_negative_pi  (double  phi) 

/* 

/*   Returns  1  if  orientation  phi  is  within  MAX_DELTA_PHI  to  -PI. 

/*   Returns  0  otherwise. 

/* */ 

int  close_to_negative_pi(phi) 
double  phi; 

{ 

return(PI  +  phi  <  MAX_DELTA_PHI) ; 

} 


/* */ 

/*  int  horizontal  (EDGE  *e) 

/* 

/*   Returns  1  if  orientation  of  EDGE  e  (r->avg_phi)  is  within 

/*    MAX_DELTA_PHI/4  to  PI/2  or  -PI/2  (the  normal  orientations  for 

/*    a  horizontal  line) . 
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/*       Returns  0  otherwise. 

/* */ 

int  horizontal (e) 
REGION  *e; 

{ 

double  maxphi  =  MAX_DELTA_PHI  /  4.0; 

return((fabs(e->avg_phi)  >  (0.5*PI) -maxphi)  && 
(fabs(e->avg_phi)  <  (0.5*PI)+maxphi)) ; 
} 


/* */ 

/*  IMG.LINE  *create_line  (EDGE  *r,  double  M20,  double  Mil,  double  M02, 

/*  double  Dmajor,  double  Dminor,  double  Rho) 

/* 

/*   Returns  pointer  to  newly  instantiated  IMG_LINE  with  variables  set 

/*   according  to  moments  described  by  EDGE  r,  secondary  moments 

/*   M20,  Mil,  and  M02,  axis  lengths  Dmajor,  Dminor,  and  ratio  of 

/*   axis  lengths  Rho. 

/* */ 

IMG_LINE  *create_line (r , M20 , Ml 1 , M02 , Dmaj or , Dminor , Rho) 

REGION  *r; 

double  M20 , Ml 1 , M02 , Dmaj  or , Dminor , Rho ; 

{ 

IMG_LINE   *1; 
long  xl,  yl,  x2,  y2; 
double  Phi,   deltal,  delta2; 
int  negative_phi; 

/*  r->f irst_pixel  mapped  onto  the  IMG_LINE  will  be  endpoint  pi 
r->last_pixel  mapped  onto  the  IMG_LINE  will  be  endpoint  p2  */ 

xl  =  r->f  irst_pixeiyo(Xdim)  ; 

yl  =  r->f irst_pixel/(Xdim) ; 
x2  =  r->last_pixel°/,(Xdim)  ; 
y2  =  r->last_pixel/(Xdim) ; 

/*  Calculate  the  normal  orientation  of  the  IMG_LINE  by  atan2()  function.  */ 
Phi    =  atan2(-2*Mll,M02-M20)/2.0; 

/*  Deltal  and  delta2  are  the  offsets  used  to  calculate  the  endpoints 
for  the  IMG_LINE  segment  based  upon  values  xl.yl  and  x2,y2.  */ 
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deltal  =  (r->mlO/r->mOO  -  (double) xl)*f cos (Phi)  + 

(r->m01/r->m00  -  (double)yl)*f sin(Phi) ; 
delta2  =  (r->ml0/r->m00  -  (double) x2)*f cos (Phi)  + 

(r->m01/r->m00  -  (double)y2)*f sin(Phi) ; 

/*  Phi  =  atan2(-2*Mll,M02-M20)/2.0)  always  returns  positive  result  to  Phi 
Therefore,  negative_phi  =  (r->avg_phi  <  0.0)  is  necessary.  */ 
negative_phi  =  (r->avg_phi  <  0.0); 

/*  Allocate  memory  for  IMG_LINE  1.  */ 

if((l  =  (IMG_LINE  *)malloc(sizeof(IMG_LINE)))  ==  NULL)  { 

fatal ("create_line:  malloc\n") ; 
} 

/*  Calculate  x,y  coordinates  for  endpoints  pi  and  p2.  */ 
l->pl.x  =  (double)xl  +  deltal*f cos(Phi) 
l->pl.y  =  (double)yl  +  deltal*f sin(Phi) 
l->p2.x  =  (double)x2  +  delta2*f cos (Phi) 
l->p2.y  =  (double)y2  +  delta2*fsin(Phi) 

/*  Copy  least  squares  fit  moments.  */ 

l->m00  =  r->m00: 

l->ml0  =  r->ml0: 

l->m01  =  r->m01 

l->mll  =  r->mll 

l->m20  =  r->m20 

l->m02  =  r->m02: 

/*  Phi  is  positive,  but  -pi  <  r->avg_phi  <  pi .  */ 

if (negative_phi)  l->phi  =  -Phi; 

else  l->phi  =  Phi; 

/*  Update  rest  of  IMG_LINE  values.  */ 
l->next   =  NULL; 

l->dmajor  =  Dmajor; 
l->dminor  =  Dminor; 
l->rho    =  Rho; 

l->angle_to_image_center  =  0.0;  /*  default  values  for  LINE  matching  */ 
l->matchlist  =  NULL; 
l->pm        =  NULL; 
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++Line count ;     /*  Increment  global  variable,  Linecount .  */ 

strcpy (l->name , "   " ) ; 

sprintf (l->name,  "°/,d",  Linecount); 


return (1) ; 


/*  Return  IMG_LINE  1.  */ 


/* */ 

/*  void  line_test  (EDGE  *r) 

/* 

/*   Determines  if  EDGE  r  meets  three  requirements  to  be  a  IMG_LINE: 

/*     (1)  The  number  of  pixels  in  EDGE  r  (r->m00)  be  greater  than 

/*        MIN_PIXELS_PER_LINE. 

/*     (2)  The  ratio  (Rho)  of  the  length  of  major  and  minor  axes  of  the 

/*        EDGE  be  less  than  MAX.RHO. 

/*     (3)  The  length  of  the  major  axis  (Dmajor)  be  greater  than 

/*        MIN.DMAJOR,  the  minimum  IMG_LINE  length  allowed. 

/*   If  all  three  conditions  are  met,  a  new  IMG_LINE  type  is  created  and 

/*   appended  to  the  Line_list  in  order  of  significance  (in  this  case 

/*   Dmajor) . 

/* */ 

line_test(r) 

REGION  *r; 
{ 

IMG_LINE   *1,  *insert_pt  =  Line_list_head; 

double  M20 , Ml 1 , M02 , Ma , Mb , Mmaj  or , Mminor , Dma j or , Dminor , Rho ; 


/*  First  test  —  A  IMG_LINE  must  have  a  required  minimun  number  of  pixels .  */ 
if(r->m00  >  MIN_PIXELS_PER_LINE) 


/*  Calculate  secondary  moments  by  least  squares  fit.  */ 

M20  =  r->m20  -  ((r->mlO*r->mlO)/r->mOO) ; 

Mil  =  r->mll  -  ((r->ml0*r->m01)/r->m00) ; 

M02  =  r->m02  -  ( (r->m01*r->m01)/r->m00) ; 
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{ 


/*  Calculate  major  and  minor  axis  lengths,  Dmajor  and  Dminor.  */ 

Ma  =  (M20+M02)/2.0; 

Mb  =  sqrt(  ( (M02-M20)*(M02-M20)/4.0)  +  (M11*M11)  ); 

Mmajor  =  Ma  -  Mb; 

Mminor  =  Ma  +  Mb; 

Dmajor  =  4.0*sqrt (Mminor/r->m00)  ; 

Dminor  =  4.0*sqrt (Mmajor/r->m00) ; 


/*  Calculate  ratio  Rho.  */ 
Rho  =  Dminor /Dmajor; 

/*  Second  &  Third  tests  —  Ratio  Rho  must  represent  a  line,  not  a  blob 

—  IMG_LINE  must  be  at  least  a  certain  length, 
if ((Rho  <  MAX_RH0)  &&  (Dmajor  >  MIN_DMAJOR)) 

/*  The  EDGE  passed  the  three  requirments  to  be  a  line.  */ 
1  =  create_line(r ,M20, Mil, M02, Dmajor, Dminor, Rho) ; 


/*  Add  new  IMG_LINE  to  IMG_LINE  list  in  order  by  IMG_LINE  length,  dmajor.  */ 

if (Line_list_head  ==  NULL) 

{ 

Line_list_head  =  1; 
} 
else   if(l->dmajor  >  Line_list_head->dmajor) 

{ 

l->next  =  Line_list_head; 
Line_list_head  =  1; 


} 

else 

{ 

while (( insert _pt->next  !=  NULL)  && 
(l->dmajor  <  insert _pt->next->dmaj or)) 

{ 

insert _pt  =  insert _pt->next ; 

} 

l->next  =  insert_pt->next ; 
insert _pt->next  =  1; 
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}  /*  end  if  second  and  third  tests  */ 

}     /*  end  if  first  test  */ 
} 


/* */ 


/* */ 

/*  void  rgbalong_to_bwlong  (long  rgbalong,  long  *bwlong) 

/* 

/*   Converts  color  to  black/white  for  rgba  formatted  pixels . 

/*   The  weights  assigned  for  each  color  are  television  standards. 

/*   This  function  courtesy  of  M.  Zyda. 

/* */ 

rgbalong_to_bwlong (rgbalong , bwlong) 

long  rgbalong;   /*  input  color  rgbalong  */ 
long  *bwlong;   /*  output  b/w  rgbalong  */ 

{ 

unsigned  char  red,  green,  blue,  alpha; 
unsigned  bw; 

/*  Use  bit  masks  to  get  RGB  and  alpha  values  from  input  rgbalong.  */ 
red   =  rgbalong  &  OxOOOOOOff; 
green  =  (rgbalong  &  OxOOOOffOO)  »  8; 
blue  =  (rgbalong  &  OxOOffOOOO)  »  16; 
alpha  =  (rgbalong  &  Oxff 000000)  »  24; 
/*  if  (  i==  4000   II  i==  5000)  printf ("\n7.d   :alpha  =  V.d"  ,  i,  alpha);*/ 
/*  Calculate  the  black&white  intesity  using  NTSC  standard. 

intensity  =  0.299(red)  +  0.587(green)  +  0.114(blue)        */ 
bw  =  (0.299*red)  +  (0.587*green)  +  (0. 114*blue) ; 

/*  Save  the  black&white  intensity  in  bwlong.  */ 
♦bwlong  =  (alpha«24)  I  (bw«16)  I  (bw«8)  Ibw; 
gray=bw  ; 

} 
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/* */ 

/*  void  set_pixel_white  (long  *rgbalong) 

/* 

/*   Sets  the  specified  long  integer  pointed  to  by  rgbalong  to  be 

/*   white  by  setting  all  RGB  bits  to  ff  (255  dec  ->  max  intensity) . 
/* */ 

set_pixel_white (rgbalong) 

long  *rgbalong; 
{ 

♦rgbalong  =  Oxffffffff; 
} 


/* */ 

/*  void  set_pixel_black  (long  *rgbalong) 

/* 

/*   Sets  the  specified  long  integer  pointed  to  by  rgbalong  to  be 

/*   black  by  setting  all  RGB  bits  to  00  (0  dec  ->  min  intensity) . 
/* */ 

set_pixel_black (rgbalong) 

long  *rgbalong; 
{ 

♦rgbalong  =  Oxff 000000; 

} 


/* */ 

/*  void  write_all_lines  (long  x,  long  y) 

/* 

/*    Write  to  output  file  "name. text". 

/* */ 

write_all_lines(dataf ile,x,y) 
char  *datafile;  /*added*/ 
long  x,y;       /*  the  x,y  dimensions  of  the  image  */ 

•c 

IMG_LINE  *1  =  Line_list_head; 
FILE  *lines_file; 

lines_file  =  fopenC'lines.text" ,"w") ; 

fprintf (lines.file," DATA  FOR  EXTRACTED  LINE  SEGMENTS  — \n"); 
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fprintf  (lines_file," Image  size:  nr  pixels  x  axis  =  '/.d,  nr  pixels  y  axis  =  */,d'" 
fprintf (lines_f ile, "Extracted  line  segments  listed  in  order  by  length. \n\n") ; 

/*added  for  printing  number  of  lines  and  regions*/ 

fprintf  (lines_f  ile,  "\nNumber  lines  found  in  °/,s  =  %d",  dataf  ile,  Line  count ) ; 

fprintf  (lines_f  ile,  "\nNumber  regions  found  in  °/.s  =  %d\n\n",  dataf  ile,  reg_comr; 

while (1!=NULL) 
{ 

/*changed  to  show  mOO  as  double*/ 

fprintf  (lines_f  ile,  "7,s>  length  =  % .4f,  thinness  =  °/..4f,  orientation  =  °/,.4: 

l->name,  l->dmajor,  l->rho,  l->phi,  l->m00) ; 

fprintf (lines_file,"endpoints:  (7,.2f  °/,.2f)   (°/..2f  y..2f)\n\n\ 
l->pl . x , l->pl . y , l->p2 . x , l->p2 . y) ; 
1  =  l->next ; 
} 
f close(lines_f ile) ; 

printfC  lines  found  in  image  written  to:  'lines .text '\n") ; 

} 


/*  int  vertical_edge(EDGE) 

/*   return  1  if  orientation  of  an  edge  is 

(BETWEEN  -VERT.LIMIT  &  +VERT_LIMIT)  OR  (>  PI  -  VERT.LIMIT  ) 
OR  (  <  -  (PI  +  VERT.LIMIT))  */ 

int  vertical_edge(r) 

REGION  *r; 
{ 

return  ((fabs(r->avg_phi)  <  VERT_LIMIT)  I  I 

(fabs(r->avg_phi)  >  PI  -  VERT_LIMIT))  ; 
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/*********************************************************************/ 


/*  FILENAME 

/*  AUTHOR 

/*  CHANGES 

/*  DATE 


f indedge.c 

Khaled  Morsy  &  L.  Remias 

Jader  Gomes  da  Silva  Filho 

18  January  1996 
/*   Last  Update:  12/20/96 

/♦DESCRIPTION:  An  image  gradient  program  incorporating  edge-finding. 
/*       Displays  edge-gradient  image  and  associated  lines. 

/* 

/*  This  application  is  designed  for  use  on  a  Silicon- 

/*  Graphics  Iris  (r)  workstation  utilizing  a  . sgi 

/*  or  similar  rgb  formatted  image. 

/*  RGB  values  are  of  type  LONG  in  the  form  AABBGGRR  where: 

/*  AA  -  alpha  value,  0-255 

/*  BB  -  blue  component ,  0-255 

/*  GG  -  green  component ,  0-255 

/*  RR  -  red  component,  0-255 

/* 

/*  SiliconGraphics  graphics  library  functions  used  within 

/*  the  display_bw_and_gradient_images()  routine: 

/*  qdeviceO,  winsetO,  c3f(),  move2()  ,  draw2(), 

/*  swapbuffersO  ,  reshapeviewportO  ,  wincloseQ, 

/*  and  IrectwriteO  . 

/* 

/*  NPSIMAGE  function  routines  borrowed  courtesy  of  M.Zyda: 

/*  read_sgi_rgbimage() ,  get_empty_rgba_npsimage() , 

/*  get_empty_rgb_npsimage() ,  and  rgbalong_to_bwlong() . 

/* 

/*  Least  Squares  Fit  method  for  line-finding  from 

/*  "Sonar  Data  Interpretaion  for  Autonomous  Mobile  Robots" 

/*  by  Y.Kanayama,  T.Noguchi,  &  B.Hartman,  1990. 

#include  <gl.h>  /*  SiliconGraphics  (r)  graphic  library  */ 

#include  <gl/image.h>       /*  SGI  image  structure  library  */ 

#include  <device.h>         /*  Machine-dependent  device  library  */ 

/*  for  keys  and  mouse-buttons  */ 

#include  <stdio.h>  /*  C  standard  i/o  library  */ 

#include  <math.h>  /*  C  math  library  for  atan2()  */ 

#include  "image_types .h"  /*  Type  definitions  for  NPSIMAGE,  etc.  */ 
#include  "edge_types.h"  /*  Type  definitions  for  EDGE,  LINE,  etc  */ 
#include  "nps image support .h"  /*  Some  NPSIMAGE  functions  */ 
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/*  #include  " edge support .h" 

/*  EDGE  and  IMG_LINE  building  functions  */ 
#include  "esworkalsol.h" 
/*#include  "es96.h"*/ 
#include  "displaysupport .h"  /*  Graphics  display  functions  */ 

int  neighbor_included; 

main (argc,  argv) 
int  argc ; 
char  *argv  []  ; 

{ 

NPSIMAGE  *imgl,  /*  input  f ile_name.rgb  color  image  */ 

*img2,  /*  black&white  image  */ 

*img3;  /*  gradient  image  */ 

/*  pointers  to  RGBA  longs  ("bitsptr"s)  of  respective  NPSIMAGEs  */ 

long     *ptrl,  *ptr2,  *ptr3; 

double    dx,  dy,  Th  =  THRESHOLD*THRESHOLD ; 

int  z  =  0;   /*counter  for  pixels  in  gradient  image  */ 

REGION  *reg; 

/*****added  950830  km  lr******************************************/ 
PIXEL  current [646] , pre v [646] ; 
double  orientation; 
int  UL,U,UR,L,R,DL,D,DR,c; 
int  i ,  s  ,  t ,  p ; 
long     x,  y; 

long  ptr4 [313956] ;   /*646  x  486  */ 
reg_file  =  f  openO'regions.txt"  ,"w") ; 
image_out  =  fopen ("image. out .dat" ,  "w"); 

if  (argc  !=  2)  fatalC'usage:  findedge  f  ilename\n")  ; 

/*  Read  in  input  rgb  image  */ 
imgl  =  read_sgi_rgbimage(argv[l] ) ; 
ifCimgl  == (NPSIMAGE  *)  NULL) 

{ 

fatal  ("File  °/.s  is  a  NULL  image.  \n"  ,imgl->name)  ; 

} 
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Xdim  =  imgl->xsize;  /*  else  set  global  Xdim  and  ptrl  */ 

Ydim  =  imgl->ysize  ; 

ptrl  =  imgl->imgdata.bitsptr; 
/*  printf  ("findedge:>  °/,s  xsize=  %d  ysize=  7,d  pixels=  °/.d\n" , 

imgl->name , imgl->xsize , imgl->ysize ,  (imgl->xsize*imgl->ysize) )  ;  */ 


/*  Declare  new  NPSIMAGEs  */ 
if ((imgl->type  ==  RGBAWITHALPHA)  I  I  (imgl->type  ==  RGBA) ) 
{ 

img2  =  get_empty_rgba_npsimage(Xdim,imgl->ysize,imgl->name) ; 
img3  =  get_empty_rgba_npsimage((Xdim-2)  , imgl->ysize-2, "f indedge") ; 
} 
else 
{ 

fatal  ("Unknown  or  c-mapped  image  type:  °/0d.\n"  ,imgl->type) ; 
} 
ptr2  =  img2->imgdata.bitsptr; 
ptr3  =  img3->imgdata.bitsptr ; 

/*  The  scan  of  an  RGB  image  is  from  the  bottom  row  ->  up, 
traversing  the  rows  left  to  right.  */ 

/*  In  order  for  the  Sobel  operator  to  be  calculated  for  a  specific  pixel, 

all  eight  surronding  pixels  must  have  an  absolute  (black  &  white) 

light  intensity  calculated.   Function  rgbalong_to_bwlong()  performs 
this  task.  */ 

/*  Due  to  the  nature  of  the  Sobel  operator,  the  pixels  in  the  top  and 
bottom  rows  as  well  as  pixels  in  the  leftmost  and  rightmost  columns 
of  the  input  image  will  not  be  calculated.   In  order  to  start  cal- 
culating the  Sobel  operators,  the  first  2  rows  of  the  input  image 
must  be  converted  to  black  &  white  light  intensity  values.  */ 

/*  Calculate  bw  values  for  the  entire  input  image.  */ 
for(i=0;  i<  ((Xdim  *  Ydim)-1) ;++i) 

{ 

rgbalong_to_bwlong(  ptrl[i] ,&ptr2[i]) ; 

ptr4[i]    =  gray; 

} 
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/*  modified  by  Khaled  &  Remias  ***********************************/ 

for  (y=0;  y  <  Ydim;  ++y) 

{ 

for  (x=0;  x  <  Xdim;  ++x) 

{ 

i  =  (y  *  Xdim)  +  x; 

neighbor_included  =  0; 
min  =  PI; 

UL=i+(Xdim-l);    U  =  UL+1    ;   UR  =  U+l; 
L=  i-1    ;   R  =  i+1; 
DL=i-(Xdim-l);    D=DL+1;    DR  =  D+l; 

if(x  ==   (Xdim-D) 
{ 
for   (c=0;    c< (Xdim-1);    C++) 
{ 

prev[c]=current  [c]  ; 
current [c] . phi=0 . 0 ; 
current [c] .r  =  NULL; 
current [c] .significant   =  0; 
} 
} 

if((y  ==0)    II    (y  ==    (Ydim-D)    II    (x  ==  0)    II    (x  ==    (Xdim-1))) 

-C 

set_pixel_black(&ptr3 [i] ) ; 

} 

else 
{ 

/*  Calculate  dx,dy  via  Sobel  operator  for  pixel  i.    */ 
dx  =  -    (ptr4[i+ (Xdim-1)])    +    (ptr4[i+(Xdim+l)]) 
-     2  *(  ptr4[i-l])+  2  *(ptr4[i+l]) 
-    (ptr4[i-Xdim-l])    +    (ptr4[i-Xdim+l] ) ; 

dy  =      (ptr4[i+Xdim-l])    +  2*(ptr4[i+Xdim] )    +(ptr4[i+Xdim+l]) 
-(ptr4[i-Xdim-l])    -   2*(ptr4[i-Xdim] )    -    (ptr4[i-Xdim+l] ) ; 
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if(  ((dx*dx)+(dy*dy))  >  Th) 
{ 

orientation  =  atan2(dy ,dx) ; 
current [x] . phi  =  orientation; 
current [x] .mag  =  sqrt((dx*dx)+(dy*dy)) ;  /*  changed  */ 
/*printf("I  am  here  °/.f  \n"  .current  [x]  .mag)  ;*/ 
current [x] .significant  =  1; 
set_pixel_black(&ptr3[z]) ; 

pixel_membership (current , prev , x , y , orientation) ; 

/*  printf("\n  7,d  °/,d  °/,s",x,  y,   image_data[x]  [y] )  ;*/ 
} 

else 

{     image_data[x]  [y]    =   "."; 

set_pixel_white (&ptr3 [z] ) ; 
} 
++z; 
} 

}  /*  endfor  x  */ 
}  /*  end  for  y  */ 

f close (reg_file)  ; 

reg  =  f irst_region; 

while  (reg  !=  NULL) 

{ 
/*  printf  ("\nreg*/.u  m00=7,f",  reg,reg->m00)  ;*/ 

/*  printf  ("\nm00=°/.f  mlO=°/,f  m01=7.f  mll='/.f  m20=,/.f  m02=°/,f "  ,reg->m00, 
reg->mlO , reg->m01 , reg->ml 1 , reg->m20 , reg->m02) ; */ 
line_test(reg) ; 
reg  =  reg->next; 

} 

/*  Write  the  lines  list  to  file  "lines. text" .  */ 
write_all_lines(argv[l] ,img3->xsize,img3->ysize) ; 
printf  ("\nNumber  lines  found  in  °/,s  =  °/,d",  argv[l]  .Linecount)  ; 
printf  ("\nNumber  regions  found  in  °/.s  =  °/,d\n" ,  argv[l]  ,reg_count)  ; 

/*****************************************************************/ 

/****************  VISUAL  DISPLAY  OF  REGIONS  . .  BY  KHALED  MORSY   */ 
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/it:****************************************************************/ 

b-1; 

t=91; 
f or (count=l ; count<8 ; ++count) 

{ 

for(y=Ydim-2;  y  >1  ;  ~y) 

{ 

for(x=s;  x  <  t  ;  ++x) 

{ 

p  =  (x/90)  +  ((y/63)  *  9)+l  ; 

/***  we  can  put  any  number  (t)  in  place  of  3  to  print  col  #  t  */ 
if  ( (py.9)  ==5&&  image.data  [x]  [y]  !  =  MULL) 
{  if(x==s) 
fprintf( image. out  ,  "\n"); 

fprintf (image_out ,  "%s" ,image_data[x] [y]); 
} 

} 
} 
s=t;  t+=90;   fprintf (image_out,  "\n  \n") ; 

} 


/*  Display  the  black&white  and  gradient  images  on  the  screen.  */ 
display _bw_and_gradient .images ( img2 , img3 , Line_list_head) ; 
display_line_image(img2,Line_list_head) ; 
printf  ("\nf  indedge  c/,s.  .  .done.\n"  ,argv[l]  ) ; 

> 
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APPENDIX  G.  LISP  CODE  FOR 
GENERATING  A  3D  MODEL 
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*********************************************************************** 
File:  euler- angle-rigid-body .lisp    Franz  Common  LISP 

File  that  defines  the  class  "rigid-body"  and  its  methods. 

by  Prof.  Robert  McGhee 
Modified  by  Jader  Filho  —  1997 

************************************************************** 

(load  "robot-kinematics") 

(defclass  rigid-body 

0 
((posture  ;The  vector  (xe  ye  ze  phi  theta  psi) . 

:initform  '(000000) 

:initarg  : posture 

: accessor  posture) 
(posture-rate  ;The  vector  (xe-dot  ye-dot  ze-dot  phi-dot  theta-dot  psi-dot) . 

:initarg  : posture-rate 

: accessor  posture-rate) 
(velocity  ;The  six-vector  (u  v  w  p  q  r)  in  body  coordinates. 

rinitform  '(1  1  1  .  1  .1  .1) 

: initarg  : velocity 

: accessor  velocity) 
(velocity-growth-rate   ;The  vector  (u-dot  v-dot  w-dot  p-dot  q-dot  r-dot) . 

: accessor  velocity-growth-rate) 
(forces-and-torques    ;The  vector  (Fx  Fy  Fz  L  M  N)  in  body  coordinates. 

:initform  (list  0  0  (-  *gravity*)  0  0  0) 

: accessor  forces-and-torques) 
(moments-of -inertia    ;The  vector  (Ix  Iy  Iz)  in  principal  axis  coordinates. 

:initform  '(111) 

: initarg  : moments-of -inertia 

: accessor  moments-of -inertia) 
(mass 

:initform  1 

: initarg  :mass 

: accessor  mass) 

(node-list    ; (x  y  z  1)  in  body  coord  for  each  node.  Starts  with  (0  0  0  1). 
:initform  '((0001)  (0  10  0  1)) 

: initarg  : node-list 

:accessor  node-list) 

(polygon-list 
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:initform  '  ((0  D) 

:initarg  : polygon-list 

: accessor  polygon-list) 
(transf ormed-node-list   ; (x  y  z  1)  in  earth  coord  for  each  node  in  node-list 

: accessor  transf ormed-node-list) 
(H-matrix 

:initform  (unit-matrix  4) 

: accessor  H-matrix) 
(time-stamp 

: accessor  time-stamp))) 

(def method  initialize  ((body  rigid-body)) 

(setf  (transf ormed-node-list  body)  (node-list  body)) 

(setf  (velocity-growth-rate  body)  (update-velocity-growth-rate  body)) 

(setf  (posture-rate  body)  (earth-velocity  body)) 

(setf  (time-stamp  body)  (get-internal-real-time))) 

(def method  move  ((body  rigid-body)  azimuth  elevation  roll  x  y  z) 
(setf  (posture  body)  (list  x  y  z  roll  elevation  azimuth)) 
(setf  (H-matrix  body) 

(homogeneous-transform  azimuth  elevation  roll  x  y  z)) 
(transform-node-list  body)) 

(def method  get-delta-t  ((body  rigid-body))  0.1) 
(let*  ((new-time  (get-internal-real-time)) 

(delta-t  (/  (-  new-time  (time-stamp  body))  1000))) 
(setf  (time-stamp  body)  new-time) 
delta-t)) 

(def method  update-rigid-body  ((body  rigid-body))     ;Euler  integration, 
(let*  ((delta-t  (get-delta-t  body))) 
(update-posture  body  delta-t) 
(setf  (H-matrix  body)  (homogeneous-transform  (sixth  (posture  body)) 

(fifth  (posture  body))  (fourth  (posture  body))  (first  (posture  body)) 
(second  (posture  body))  (third  (posture  body)))) 
(transform-node-list  body) 
(update-velocity  body  delta-t) 
(update-velocity-growth-rate  body) ) ) 

(def method  update-velocity-growth-rate  ((body  rigid-body)) 

(setf  (velocity-growth-rate  body)  ; Assumes  principal  axis  coordinates  with 
(multiple- value-bind  ; origin  at  center  of  gravity  of  body. 
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(Fx  Fy  Fz  L  M  N   u  v  w  p  q  r   Ix  Iy  Iz)  ;Declares  local  variables, 
(values-list  ; Values  assigned, 

(append 

(forces-and— torques  body)  (velocity  body)  (moments-of-inertia  body)); 
(list  (+  (*  v  r)  (*  -1  w  q)  (/  Fx  (mass  body)) 

(*  *gravity*  (first  (third  (H-matrix  body))))) 
(+  (*  w  p)  (*  -1  u  r)  (/  Fy  (mass  body)) 

(*  *gravity*  (second  (third  (H-matrix  body))))) 
(+  (*  u  q)  (*  -1  v  p)  (/  Fz  (mass  body)) 

(*  *gravity*  (third  (third  (H-matrix  body))))) 
(/  (+  (*  (-  Iy  Iz)  q  r)  L)  Ix) 
(/  (+  (*  (-  Iz  Ix)  r  p)  M)  Iy) 
(/  (+  (*  (-  Ix  Iy)  p  q)  M)  Iz)))))   ; Value  returned. 

(def method  update-velocity  ((body  rigid-body)  delta-t)  ;Euler  integration, 
(setf  (velocity  body) 

(vector-add  (velocity  body) 

(scalar-multiply  delta-t  (velocity-growth-rate  body))))) 

(def method  update-posture  ((body  rigid-body)  delta-t)  ;Euler  integration, 
(setf  (posture-rate  body)  (earth-velocity  body)) 
(setf  (posture  body) 

(vector-add  (posture  body)  (scalar-multiply  delta-t  (posture-rate  body))))) 

(def method  transform-node-list  ((body  rigid-body)) 
(setf  (transformed-node-list  body) 
(mapcar  #' (lambda  (node-location) 

(post-multiply  (H-matrix  body)  node-location)) 
(node-list  body)))) 

(def constant  *gravity*  32.2185) 

(def method  earth-velocity  ((body  rigid-body)) 

(let*  ((linear-velocity  (firstn  3  (velocity  body))) 
(rotational-velocity  (cdddr  (velocity  body))) 
(posture  (posture  body)) 
(R-matrix  (rotation-matrix  (sixth  posture)  (fifth  posture) 

(fourth  posture))) 
(linear-earth-velocity  (post-multiply  R-matrix  linear-velocity)) 
(T-matrix  (body-rate-to-euler-rate-matrix  (sixth  posture) 

(fifth  posture)  (fourth  posture))) 
(rotational-earth-velocity  (post-multiply  T-matrix 
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rotational-velocity) ) ) 
(append  linear-earth-velocity  rotational-earth-velocity))) 
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********************************************************************* 
File:  video-camera. lisp    Franz  Common  LISP 

**  VIDEO-CAMERA  CLASS  DEFINITION  ** 

A  Video-camera  is  a  camera  which  uses  double  buffering  in  order  to 

display  a  sequence  of  images  without  flicker. 

by  Shirley  Isakari  CS4314  Winter  1994  Final  Project 

Requires:  camera. cl 

by  Shirley  Isakari  CS4314  Winter  1994  Final  Project 
Adapted  from  Prof.  Kwak's  Movie  Camera  flavor. 
Modified  by  Jader  Filho  —  1997 

*********************************************************************** 

(load  "camera") 
(load  "loadfloor") 

(defclass  video-camera  (camera) 
((image-window 
: accessor  image-window 
:initform  (cw: make-bitmap-stream  : borders  5 

: width  300 

: height  400 

:title  "2nd  Floor" 

: background-color  cw:blue 

: foreground-color  cw: white 

:activate-p  nil)))) 

(defun  create-video-camera-1  0 

(setf  *camera-l*  (make-instance  'video-camera)) 
(queue-mouse  *camera-l*)) 

(def method  new-picture  ((camera  video-camera)  (body  rigid-body)  draw-color) 
(erase-image-window  camera) 
(take-picture  camera  body  draw-color) 
(expose-image  camera)) 


; ;modif ied 

(def method  draw-line-in-window  ((camera  video-camera)  start  end  draw-color) 
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(let  ((line-color  (cond 

((=0  draw-color)  cw: white) 

((=1  draw-color)  cw: yellow) 

((=2  draw-color)  cw: magenta) 

((=3  draw-color)  cw: green) 

((=4  draw-color)  cw:red) 

((=5  draw-color)  cw:cyan) 

((=6  draw-color)  cw: black) 

((=7  draw-color)  cw:blue)))) 
(cw: draw-line  (image-window  camera) 
(cw:make-position  :x  (first  start)  :y  (second  start)) 
(cw:make-position  :x  (first  end)  :y  (second  end)) 
: brush-width  0  : color  line-color))) 


(def method  expose-image  ((camera  video-camera)) 

(cw:bitblt  (image-window  camera)  0  0  (camera-window  camera)  0  0)) 

(def method  erase-image-window  ((camera  video-camera)) 
(cw: clear  (image-window  camera))) 

(defun  test-video-camera  (az  el  roll  x  y  z) ; Produces  top  view  of  default  rigid-bod; 

(reset-windows) 

(create-video-camera-1) 

(loadfloor) 

(initialize  *floor*) 

(setf  (posture  *camera-l*)  (list  az  el  roll  x  y  z) 
(H-matrix  *camera-l*)  (homogeneous-transform-matrix 

(posture  *camera-l*)) 
(inverse-H-matrix  *camera-l*)  (inverse-H  (H-matrix  *camera-l*))) 

(move-camera  *camera-l*  az  el  roll  x  y  z) 

(new-picture  *camera-l*  *floor*  *floor-color*)) 

(defun  testO  ()  (test-video-camera  (/  pi  2)  0  0  -150  0  -100)) 

(defun  testl  0  (test-video-camera  (-  (/  pi  2))  0  0  -150  200  -100)) 

(defun  test2  0  (test-video-camera  pi  0  0  -150  100  -100)) 

(defun  test3  0  (test-video-camera  pi  0  0  -150  100  -100)) 
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*********************************************************************** 
File:  movie-camera. lisp   Franz  Common  LISP 

**  MOVIE-CAMERA  CLASS  DEFINITION  ** 

A  Movie-camera  is  a  video-camera  which  is  able  to  record  and  play  back 

images.  It  has  film  (defined  in  film.cl)  which  stores  the  images 

and  a  projector  (defined  in  projector .cl)  which  allows  convenient  playback 

of  the  images  via  a  Graphical  User  Interface  (GUI) . 

Requires:  camera. cl  video-camera. cl 

by  Shirley  Isakari  CS4314  Winter  1994  Final  Project 

Modifications  &  enhancements  to  Mark  Kindl's  Improved-Movie-Camera  flavor. 

Modified  by  Jader  Filho  —  1997 

*************************************************************************** 

(load  "video-camera") 
(load  "film") 


(defclass  movie-camera  (video-camera) 

((film  ;  class  containing  stored  images  (bitmaps) 

:initform  (make-instance  'film  : frames  (make-array  frames-max)) 
: accessor  film) 
(projector  ;  GUI  class  for  convenient  film  playback 
: accessor  projector 
:initform  (make-instance  'projector)))) 

(load  "projector") 

(defconstant  frames-max  60) 
(defconstant  repetitions  1) 

(defun  create-movie-camera-1  () 

(setf  *camera-l*  (make-instance  'movie-camera)) 
(queue-mouse  *camera-l*) 
(initialize-f ilm  (film  *camera-l*)) 
(initialize-projector  (projector  *camera-l*))) 

;  Displays  current  image,  records  image  on  film,  and  advances  film  frame, 
(def method  expose-image  ((movie-camera  movie-camera))  ; display,  record  &  adv  fit 
(cw:bitblt  (image-window  movie-camera)  0  0  (camera-window  movie-camera)  0  0  ) 
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(cwrbitblt  (image-window  movie-camera)  0  0 

(aref  (frames  (film  movie-camera))  (current-frame  (film  movie-camera)))  0  0) 
(advance-new-frame  (film  movie-camera))) 


(setf  *floor*  (make-instance  'rigid-body)) 
(setf  *floor-color*  *white*) 

(defun  test-movie-camera  (az  el  roll  x  y  z); Produces  top  view  of  default  rigid-bod; 

(reset-windows) 

(create-movie-camera-1) 

(loadfloor) 

(initialize  *floor*) 

(setf  (posture  *camera-l*)  (list  az  el  roll  x  y  z) 
(H-matrix  *camera-l*)  (homogeneous-transform-matrix  (posture  *camera-l*)) 
(inverse-H-matrix  *camera-l*)  (inverse-H  (H-matrix  *camera-l*))) 

(move-camera  *camera-l*  az  el  roll  x  y  z) 

(new-picture  *camera-l*  *floor*  *f loor-color*)) 

(defun  test4  ()  (test-movie-camera  pi  0  0  -150  100  -100)) 
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*********************************************************************** 
File:  film. lisp        Franz  Common  LISP 

**  FILM  CLASS  DEFINITION  ** 

Film  is  the  part  of  a  Movie-camera  which  stores  the  recorded  images. 

Requires:  camera. cl  video-camera. cl  movie-camera. cl 

by  Shirley  Isakari  CS4314  Winter  1994  Final  Project 

Modifications  &  enhancements  to  Mark  Kindl's  Improved-Movie-Camera  flavor 

Modified  by  Jader  Filho  —  1997 

*********************************************************************** 


(defclass  film  () 
( (current-frame 

: initf orm  0 

: accessor  current-frame) 
(last-frame 

: initf orm  -1 

: accessor  last-frame) 
(max-frames 

: initf orm  f rames-max 

: accessor  max-frames) 
(frames        ;  array  of  stored  images  (bitmaps) 

: initarg  : frames 

: accessor  frames))) 


(def method  initialize-f ilm  ((film  film)) 
(dotimes  (count  (max-frames  film)) 
(setf  (aref  (frames  film)  count) 

(cw: make-bitmap        :bits-per-pixel  8  ;  color  images 

: width  300 
: height  400)))) 


(defmethod  goto-frame  (frame-number  (film  film)) 
(setf  (current-frame  film)  frame-number)) 

(defmethod  advance-frame  ((film  film))   ; Cycle  0  <=  current-frame  <=  last-fram 
(setf  (current-frame  film)  (mod  (1+  (current-frame  film)) 
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(1+  (last-frame  film))))) 

(def method  advance-new-frame  ((film  film)) 

;  case  where  new  exposures  made  over  previously  stored  frames 
;   (setf  (current-frame  film)  (mod  (1+  (current-frame  film)) 
;     (max-frames  film)))   ; Cycle  0  <=  current-frame  <=  max-frames 
; last-frame  <=  max-frames  -1 

(if  (and  (<  (last-frame  film)  (1-  (max-frames  film))) 
(=  1  (-  (current-frame  film)  (last-frame  film)))) 
(setf  (last-frame  film)  (1+  (last-frame  film)))) 
(setf  (current-frame  film)  (mod  (1+  (current-frame  film)) 

(max-frames  film))))   ; Cycle  0  <=  current-frame  <=  max-frames 

(def method  go-back-frame  ((film  film))  ; Cycle  last-frame  >=  current-frame  >=  0 
(setf  (current-frame  film)  (mod  (1-  (current-frame  film)) 
(1+  (last-frame  film))))) 
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*********************************************************************** 
File:  loadf loor . lisp    Franz  Common  LISP 

File  with  the  data  necessary  for  building  a  3D  model  of  a  Hallway 

by  Jader  Filho  —  1997 

*********************************************************************** 

(defun  loadf loor () 
(setf  (node-list  *floor*) 


( 


0.0  0.0  0.0   1) 
0.0  0.0  0.0   1) 
0.0  248.5  0.0   1) 
-164.7  248.5  0.0   l);;door 
-164.7  256.75  0.0   1) 
-245.7  256.75  0.0   1) 
-245.7  248.5  0.0   1) 
-390.2  248.5  0.0   1) 
-390.2  256.75  0.0   1) 
-491.2  256.75  0.0   1) 
-491.2  248.5  0.0   1) 
-657.8  248.5  0.0   1) 
-657.8  845.5  0.0   1) 
-893.5  845.5  0.0   1) 
-893.5  771.9  0.0   1) 
-956.5  771.9  0.0   1) 
-956.5  818.9  0.0   1) 
-1096.68  818.9  0.0   1) 
-1096.68  588.9  0.0   1) 
-956.5     588.9  0.0   1) 
-956.5  635.9  0.0   1) 
-893.5  635.9  0.0   1) 
-893.5  477.4  0.0   1) 
(-956.5  477.4  0.0   1) 
(-956.5  524.7  0.0   1) 
(-1096.68  524.7  0.0   1) 
(-1096.68  294.7  0.0   1) 
(-956.5  294.7  0.0   1) 
(-956.5  341.7  0.0   1) 
(-893.5  341.7  0.0   1) 
(-893.5  248.5  0.0   1) 
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(-1190.5 

248.5  0.0  1) 

(-1190.5 

256.75  0.0  1) 

(-1281.5 

256.75  0.0  1) 

(-1281.5 

248.5  0.0  1) 

(-1592.9 

248.5  0.0  1) 

(-1592.9 

256.75  0.0  1) 

(-1683.9 

256.75  0.0  1) 

(-1683.9 

248.5  0.0  1) 

(-2159.3 

248.5  0.0  1) 

(-2159.3 

256.75  0.0  1) 

(-2250.3 

256.75  0.0  1) 

(-2250.3 

248.5  0.0  1) 

(-2587.3 

248.5  0.0  1) 

(-2587.3 

256.75  0.0  1) 

(-2678.3 

256.75  0.0  1) 

(-2678.3 

248.5  0.0  1) 

(-3692.0 

248.5  0.0  1) 

(-3692.0 

457.0  0.0  1) 

(-3683.75  457.0  0.0  1) 

(-3683.75  548.0  0.0  1) 

(-3692.0 

548.0  0.0  1) 

(-3692.0 

727.3  0.0  1) 

(-3711.6 

727.3  0.0  1) 

(-3711.6 

809.7  0.0  1) 

(-3962.2 

809.7  0.0  1) 

(-3962.2 

358.9  0.0  1) 

(-3970.45 

i  358.9  0.0  1) 

(-3970.45 

i  267.9  0.0  1) 

(-3962.2 

267.9  0.0  1) 

(-3962.2 

248.5  0.0  1);; 

(-5269.7 

248.5  0.0  1) 

(-5269.7 

256.75  0.0  1) 

(-5360.7 

256.75  0.0  1) 

(-5360.7 

248.5  0.0  1) 

(-5680.7 

248.5  0.0  1) 

(-5680.7 

375.0  0.0  1) 

(-5819.2 

375.0  0.0  1) 

(-5819.2 

248.5  0.0  1) 

(-6239.2 

248.5  0.0  1) 

(-6239.2 

0.0  0.0  1) 

(-5932.7 

0.0  0.0  1) 

(-5932.7 

-8.25  0.0  1) 
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: -5841. 7  -8.25  0.0   1) 
:-5841.7  0.0  0.0  i; 
;-5364.2   0.0  0.0   1] 
>5364.2   -8.25  0.0 
;-5273.2   -8.25  0.0 
;-5273.2   0.0  0.0   1] 
;-4796.2   0.0  0.0   1] 
-4796.2   -8.25  0.0 
-4715.7  -8.25  0.0 
-4715.7   0.0  0.0   1] 
-4534.0   0.0  0.0   I! 
-4534.0   -48.0  0.0 
-4447.9  -48.0  0.0 
-4447.9   0.0  0.0   1] 
-4367.9   0.0  0.0   1] 
-4367.9   -8.25  0.0 
-4287.4   -8.25  0.0 
-4287.4  0.0  0.0   1] 
-4228.4  0.0  0.0   1] 
-4228.4   -8.25  0.0 
-4046.4   -8.25  0.0 
-4046.4  0.0  0.0   i: 
-3999.8  0.0  0.0   1] 
-3999.8   -8.25  0.0 
-3919.3  -8.25  0.0 
-3919.3  0.0  0.0   I] 
-3351.3   0.0  0.0   i; 
-3351.3  -8.25  0.0   1) 
-3260.3  -8.25  0.0   1) 
-3260.3   0.0       0.0   1) 
-3018.8  0.0       0.0   1) 
-3018.8  -13.25  0.0   1) 
-3114.0   -13.25  0.0   1) 
-3114.0  -89.25  0.0   1) 
-3131.4  -89.25  0.0   1) 
-3131.4   -609.85  0.0   1) 
-2576.0   -609.85     0.0   1) 
-2576.0   -201.65  0.0   1) 
-2565.0   -201.65  0.0   1) 
-2565.0   -609.85  0.0   1) 
-2014.0   -609.85  0.0   1) 
-2014.0   -89.25  0.0   1) 


1) 
1) 


1) 
1) 


1) 
1) 


1) 
1) 


1) 
1) 


1) 
1) 
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-2032.0  -89.25  0.0  1) 
-2032.0  -13.25  0.0  1) 
-2032.0  0.0   0.0  1) 
-1971.4  0.0  0.0  1) 
-1971.4  -8.25  0.0  1) 
-1880.4  -8.25  0.0  1) 
-1880.4  0.0  0.0  1) 
-1553.2  0.0  0.0  1) 
-1553.2  -8.25  0.0  1) 
-1462.2  -8.25  0.0  1) 
-1462.2  0.0  0.0  1) 
-1311.9  0.0  0.0  1) 
-1311.9  -8.25  0.0  1) 
-1220.9  -8.25  0.0  1) 
-1220.9  0.0  0.0  1) 
-834.4  0.0  0.0  1) 
-834.4  -8.25  0.0  1) 
-743.4  -8.25  0.0  1) 
-743.4  0.0  0.0  1) 
-417.1  0.0  0.0  1) 
-417.1  -8.25  0.0  1) 
-326.1  -8.25  0.0  1) 
-326.1  0.0  0.0  1) 
-265.9  0.0  0.0  1) 
-265.9  -8.25  0.0  1) 
-174.9  -8.25  0.0  1) 
-174.9  0.0  0.0  1) 

; drinking  fountain 
-4516.9  -31.0  0.0  1) 
-4516.9  0.0  0.0  1) 
-4485.9  0.0  0.0  1) 
-4485.9  -31.0  0.0  1) 

; island  not  being  use  look  at  the  end 

-2123.0  -13.25  0.0  1);;146 

-2508.0  -13.25  0.0  1) 

-2565.0  -13.25  0.0  1) 

-2565.0  -109.25  0.0  1) 

-2576.0  -109.25  0.0  1) 

-2576.0  -89.25  0.0  1) 

-2596.0  -89.25  0.0  1) 


201 


-2596.0  -13.25  0.0  1) 

-2927.0  -13.25  0.0  1) 

-2927.0  0.0  0.0  1) 

-2123.0  0.0  0.0  1) 

;boxl 

-2729.2  -491.85  0.0  1);;157 

-2973.2  -491.85  0.0  1) 

-2973.2  -427.85  0.0  1) 

-2729.2  -427.85  0.0  1) 

;box2 

-2729.2  -276.85  0.0  1) ; ; 161 

-2973.2  -276.85  0.0  1) 

-2973.2  -152.65  0.0  1) 

-2729.2  -152.65  0.0  1) 

;ceilingl 

-0.0  0.0  -217.5  1);;165 

-0.0  248.5  -217.5  1);  ;  —2 

-6239.2  248.5  -217.5  1) ;  ;— 69 

-6239.2  0.0  -217.5  1) 

-507.1  0.0  -217.5  1) 

-507.1  0.0  -257  1) 

-484.6  0.0  -257  1) 

-484.6  0.0  -217.5  1) 

;ceiling2 

-2.5  2.5  -217.5  1);;173 
-2.5  246.0  -217.5  1) ; ; 
-6236.7  246.0  -217.5  1); ; 
-6236.7  2.5  -217.5  1) 
-507.1  2.5  -217.5  1) 
-507.1  2.5  -257  1) 
-507.1  0.0  -257  1) 
-484.6  0.0  -257  1) 
-484.6  2.5  -257  1) 
-484.6  2.5  -217.5  1) 

;ceiling3 

-0.0  0.0  -257  1);;183  —173 

-0.0  248.5  -257  1);;  —174 


202 


-6239.2  248.5-257  1);;— 175 
-6239.2  0.0  -257   1);;  —176 

;  scrub  board 

0.0  0.0  -10.0  1)   ;;187 

0.0  43.0  -10.0  1) 

0.0  43.0  0.0  1) 

0.0  0.0  0.0  1) 

0.0  205.5  -10.0  1);;191 
0.0  248.5  -10.0  1) 
-159.7  248.5  -10.0  1) 
-159.7  248.5  0.0  1) 
0.0  248.5  0.0  1) 
0.0  205.5  0.0  1) 


-250.7  248.5  -10.0  1);;197 
-385.2  248.5  -10.0  1) 
-385.2  248.5  0.0  1) 
-250.7  248.5  0.0  1) 

-496.2  248.5  -10.0  1);;201 
-657.8  248.5  -10.0  1) 
-657.8  845.5  -10.0  1) 
-657.8  845.5  0.0  1) 
-657.8  248.5  0.0  1) 
-496.2  248.5  0.0  1) 


-820.3  845.5  -10.0  1) ; 

;207 

-893.5  845.5  -10.0  1) 

-893.5  778.9  -10.0  1) 

; ;+7  elevator 

-893.5  778.9  0.0  1) 

-893.5  845.5  0.0  1) 

-820.5  845.5  0.0  1) 

-893.5  628.9  -10.0  1);;213  -7  elevator 

-893.5  484.4  -10.0  l);;+7  elevator 

-893.5  484.4  0.0  1) 

-893.5  628.9  0.0  1) 

(-893.5  334.7  -10.0  1);;217  -7  elevator 


203 


-893.5  248.5  -10.0   1) 

-1185.5  248.5  -10.0   1) 

-1185.5  248.5  0.0   1) 
-893.5  248.5  0.0   1) 
-893.5  334.7  0.0   1) 

-1286.5  248.5  -10.0  1);;223  +5 

-1587.9  248.5  -10.0  l);;-5 

-1587.9  248.5  0.0  1) 

-1286.5  248.5  0.0  1) 

-1688.9   248.5  -10.0   1);;227 

-2154.3  248.5  -10.0   1) 

-2154.3  248.5  0.0   1) 

-1688.9  248.5  0.0   1) 

-2255.3  248.5  -10.0   1);;231 

-2582.3  248.5  -10.0   1) 

-2582.3  248.5  0.0   1) 

-2255.3  248.5  0.0   1) 

-2683.3  248.5  -10.0   1);;235 

-3276.8  248.5  -10.0   1) 

-3276.8  248.5  0.0   1) 

-2683.3  248.5  0.0   1) 

-3358.2  248.5  -10.0   1);;239 

-3692.0  248.5  -10.0   1) 

-3692.0  452.0  -10.0   1) 

-3692.0  452.0  0.0   1) 

-3692.0  248.5  0.0   1) 

-3358.2  248.5  0.0   1) 

-3692.0   553.0  -10.0   1);;245 

-3692.0  727.3  -10.0   1) 

-3711.6  727.3  -10.0   1) 

-3711.6  809.7  -10.0   1) 

-3799.7  809.7  -10.0   1) 

-3799.7  809.7  0.0   1) 

-3711.6  809.7  0.0   1) 

-3711.6  727.3  0.0   1) 

-3692.0  727.3  0.0   1) 


204 


(-3692.0  553.0  0.0   1) 

-3962.2  809.7  -10.0   1) ; ;255 

-3962.2  363.9  -10.0   1) 

-3962.2  363.9  0.0   1) 

-3962.2  809.7  0.0   1) 

-3962.2  248.5  -10.0   1);;259 

-5264.7  248.5  -10.0   1) 

-5264.7  248.5  0.0   1) 

-3962.2  248.5  0.0   1) 


;263 


5365.7 

248 

5 

-10 

0  1) 

5680.7 

248 

5 

-10 

0  1) 

5680.7 

375 

0 

-10 

0  1) 

5819.2 

375 

0 

-10 

0  1) 

5819.2 

375 

0 

0.0 

1) 

5680.7 

375 

0 

0.0 

1) 

5680.7 

248 

5 

0.0 

1) 

5365.7 

248 

5 

0.0 

1) 

-5819.2  274.0  -10.0  1);;271 

-5819.2  248.5  -10.0  1) 

-6239.2  248.5  -10.0  1) 

-6239.2  248.5  0.0  1) 

-5819.2  248.5  0.0  1) 

-5819.2  274.0  0.0  1) 

-6239.2  0.0  -10.0  1);;277 

-5937.7  0.0  -10.0  1) 

-5937.7  0.0  0.0  1) 

-6239.2  0.0  0.0  1) 

-5836.7  0.0  -10.0  1);;281 

-5369.2  0.0  -10.0  1) 

-5369.2  0.0  0.0  1) 

-5836.7  0.0  0.0  1) 

-5268.2  0.0  -10.0  1);;285 

-4801.2  0.0  -10.0  1) 

-4801.2  0.0  0.0  1) 

-5268.2  0.0  0.0  1) 


205 


■4711.7 

o.o  -io.o  i: 

);;289 

■4534.0 

0.0  -10.0   I] 

-4534.0 

-48.0  -10.0 

1) 

-4447.9 

-48.0  -10.0 

1) 

■4447 . 9 

0.0  -io.o  i: 

■4371.9 

o.o  -io.o  i; 

■4371.9 

0.0  0.0   1) 

■4447.9 

0.0  0.0   1) 

4447 . 9 

-48.0  0.0   1] 

4534.0 

-48.0  0.0   1] 

4534.0 

0.0  0.0   1) 

4711.7 

0.0  0.0   1) 

4282.4 

0.0  -10.0   1) 

;;301  +5 

4232.4 

0.0  -10.0   1) 

;;-5 

4232.4 

0.0  0.0   1) 

4282.4 

0.0  0.0   1) 

-4041.4  0.0  -10.0   1 

-4004.8  0.0  -10.0   1 

-4004.8  0.0  0.0   1) 

-4041.4  0.0  0.0   1) 

-3914.3  0.0  -10.0   1 

-3356.3  0.0  -10.0  1 

-3356.3  0.0  0.0   1) 

-3914.3  0.0  0.0   1) 

-3255.3  0.0  -10.0   1 

-3023.8  0.0  -10.0   1 

-3023.8  0.0  0.0   1) 

-3255.3  0.0  0.0   1) 


;;305 


;;309 


;;313 


-3023.8  -13.25  -10.0   1) 

■3114.0   -13.25  -10.0   1) 

-3114.0  -89.25  -10.0   1) 

-3131.4  -89.25  -10.0   1) 

-3131.4  -89.25  0.0   1) 

-3114.0  -89.25  0.0   1) 

-3114.0   -13.25  0.0   1) 

■3023.8  -13.25  0.0   1) 


;317 


206 


-3131.4  -190.25  -10.0   1);;325 

-3131.4  -609.85  -10.0   1) 

-2576.0  -609.85  -10.0   1) 

-2576.0   -206.65  -10.0   l);;-5 

-2576.0  -206.65  0.0   l);;-5 

-2576.0  -609.85  0.0   1) 

-3131.4  -609.85  0.0   1) 

-3131.4  -190.25  0.0   1) 

-2565.0  -206.65  -10.0   1);;333 

-2565.0   -609.85  -10.0   1) 

-2014.0  -609.85  -10.0   1) 

-2014.0   -357.25  -10.0   1) 

-2014.0  -357.25  0.0   1) 

-2014.0   -609.85  0.0   1) 

-2565.0  -609.85  0.0   1) 

-2565.0  -206.65  0.0   1) 

-2014.0  -256.25  -10.0   1) ; ;341 
-2014.0  -89.25  -10.0   1) 
-2032.0  -89.25  -10.0   1) 
-2032.0  -13.25  -10.0   1) 
-2032.0  -13.25  0.0   1) 
-2032.0  -89.25  0.0   1) 
-2014.0  -89.25  0.0   1) 
-2014.0  -256.25  0.0   1) 

-2027.0  0.0  -10.0   1);;349 

-1976.4  0.0  -10.0   1) 

-1976.4  0.0  0.0   1) 

-2027.0  0.0  0.0   1) 

-1875.4  0.0  -10.0   1);;353 

-1558.2  0.0  -10.0   1) 

-1558.2  0.0  0.0   1) 

-1875.4  0.0  0.0   1) 

-1457.2  0.0  -10.0   1);;357 

-1316.9  0.0  -10.0   1) 

-1316.9  0.0  0.0   1) 

-1457.2  0.0  0.0   1) 


207 


-1215.9  0.0  -10.0  1);;361 
-839.4  0.0  -10.0  1) 
-839.4  0.0  0.0  1) 
-1215.9  0.0  0.0  1) 

-738.4  0.0  -10.0  1);;365 
-507.1  0.0  -10.0  1) 
-507.1  0.0  0.0  1) 
-738.4  0.0  0.0  1) 

-484.6  0.0  -10.0  1);;369 
-422.1  0.0  -10.0  1) 
-422.1  0.0  0.0  1) 
-484.6  0.0  0.0  1) 

-321.1  0.0  -10.0  1);;373 
-270.9  0.0  -10.0  1) 
-270.9  0.0  0.0  1) 
-321.1  0.0  0.0  1) 

-169.9  0.0  -10.0  1); ;377 
0.0  0.0  -10.0  1) 
0.0  0.0  0.0  1) 
-169.9  0.0  0.0  1) 

; doors 

0.0  48.25  0.0  1);;381 
0.0  48.25  -212.5  1) 
0.0  200.75  -212.5  1) 
0.0  200.75  0.0  1) 

0.0  124.25  0.0  1);;385 
0.0  124.25  -212.5  1) 

-164.7  248.5  0.0  1);;387 
-164.7  248.5  -212.5  1) 
-245.7  248.5  -212.5  1) 
-245.7  248.5  0.0  1) 
-245.7  248.5  -212.5  1) 
-164.7  248.5  -212.5  1) 


208 


-166.2  256.75  0.0  1);;393 

-244.2  256.75  0.0  1) 

-244.2  256.75  -212.5  1) 

-166.2  256.75  -212.5  1) 


390.2  248.5 

0.0   1) 

;397 

390.2  248.5 

-212.5 

1) 

491.2  248.5 

-212.5 

1) 

491.2  248.5 

0.0   1) 

491.2  248.5 

-212.5 

1) 

390.2  248.5 

-212.5 

1) 

-391.7  256.75  0.0  1) ; ;403 

-489.7  256.75  0.0  1) 

-489.7  256.75  -212.5  1) 

-391.7  256.75  -212.5  1) 

-662.8  845.5  0.0  1);;407  —  big  door 
-662.8  845.5  -212.5  1) 
-815.3  845.5  -212.5  1) 
-815.3  845.5  0.0  1) 

-739.05  845.5  0.0  1);;411 
-739.05  845.5  -212.5  1) 

-1190.5   248.5  0.0   1);;413 
-1190.5  248.5  -212.5   1) 
-1281.5  248.5  -212.5   1) 
-1281.5  248.5  0.0   1) 
-1281.5  248.5  -212.5   1) 
-1190.5  248.5  -212.5   1) 

-1192.0  256.75  0.0  1) ; ;419 
-1280.0  256.75  0.0  1) 
-1280.0  256.75  -212.5  1) 
-1192.0  256.75  -212.5  1) 

-1592.9  248.5  0.0  1);;423 
-1592.9  248.5  -212.5  1) 
-1683.9  248.5  -212.5  1) 
-1683.9  248.5  0.0  1) 
-1683.9  248.5  -212.5  1) 


209 


(-1592.9  248.5  -212.5  1) 

-1594.4  256.75  0.0  1); ;429 

-1682.4  256.75  0.0  1) 

-1682.4  256.75  -212.5  1) 

-1594.4  256.75  -212.5  1) 


-2159.3 

248.5 

0.0   1) 

;433 

-2159.3 

248.5 

-212.5 

1) 

-2250.3 

248.5 

-212.5 

1) 

-2250.3 

248.5 

0.0   1) 

-2250.3 

248.5 

-212.5 

1) 

-2159.3 

248.5 

-212.5 

1) 

■2160.8  256.75  0.0   1); ;439 

•2248.8   256.75  0.0   1) 

•2248.8  256.75  -212.5   1) 

■2160.8  256.75  -212.5   1) 

■2587.3   248.5  0.0   1) ; ;443 

■2587.3   248.5  -212.5   1) 

■2678.3  248.5  -212.5   1) 

■2678.3   248.5  0.0   1) 

■2678.3   248.5  -212.5   1) 

■2587.3  248.5  -212.5   1) 

-2588.8  256.75  0.0   1) ; ;449 

■2676.8  256.75  0.0   1) 

■2676.8  256.75  -212.5   1) 

■2588.8  256.75  -212.5   1) 

-3692.0  457.0  0.0  1) ; ;453  vertical 

-3692.0  457.0  -212.5  1) 

-3692.0  548.0  -212.5  1) 

-3692.0  548.0  0.0  1) 

-3692.0  548.0  -212.5  1) 

-3692.0  457.0  -212.5  1) 

-3683.75  458.5  0.0  1); ;459 

-3683.75  546.5  0.0  1) 

-3683.75  546.5  -212.5  1) 

-3683.75  458.5  -212.5  1) 


210 


-3804.7  809.7  0.0  1);;463  —  big  door 

-3804.7  809.7  -212.5  1) 

-3957.2  809.7  -212.5  1) 

-3957.2  809.7  0.0  1) 

-3880.95  809.7  0.0  1) ; ;467 
-3880.95  809.7  -212.5  1) 

-3962.2  358.9  0.0   1);;469  vertical 

-3962.2  358.9  -212.5   1) 

-3962.2  267.9  -212.5   1) 

-3962.2  267.9  0.0   1) 

-3962.2  267.9  -212.5   1) 

-3962.2  358.9  -212.5   1) 

-3970.45  357.4  0.0   1) ; ;475 

-3970.45  269.4  0.0   1) 

-3970.45  269.4  -212.5   1) 

-3970.45  357.4  -212.5   1) 


5269.7 

248.5 

0.0  1) 

;479 

5269.7 

248.5 

-212.5 

1) 

5360.7 

248.5 

-212.5 

1) 

5360.7 

248.5 

0.0  1) 

5360.7 

248.5 

-212.5 

1) 

5269.7 

248.5 

-212.5 

1) 

-5271.2  256.75  0.0   1);;485 

■5359.2  256.75  0.0   1) 

■5359.2   256.75  -212.5   1) 

■5271.2   256.75  -212.5   1) 

■5819.2  370.0  0.0  1);;489    -auditorium 

■5819.2  370.0  -212.5   1) 

-5819.2   279.0  -212.5   1) 

■5819.2   279.0  0.0   1) 

■5932.7  0.0  0.0   1) ; ;493 

■5932.7  0.0  -212.5   1) 

■5841.7   0.0  -212.5   1) 

■5841.7   0.0  0.0   1) 


211 


-5841.7  0.0  -212.5   1) 
-5932.7   0.0  -212.5   1) 

-5931.2   -8.25  0.0   1);;499 

-5843.2   -8.25  0.0   1) 

-5843.2   -8.25  -212.5   1) 

-5931.2   -8.25  -212.5   1) 


5364.2 

0.0 

0.0  1) 

;503 

5364.2 

0.0 

-212.5 

1) 

5273.2 

0.0 

-212.5 

1) 

5273.2 

0.0 

0.0  1) 

5273.2 

0.0 

-212.5 

1) 

5364.2 

0.0 

-212.5 

1) 

-5362.7  -8.25  0.0   1);;509 

-5274.7  -8.25  0.0   1) 

-5274.7  -8.25  -212.5   1) 

-5362.7   -8.25  -212.5   1) 

-4796.2  0.0  0.0   1);;513 

-4796.2  0.0  -212.5   1) 

-4715.7  0.0  -212.5   1) 

-4715.7  0.0  0.0   1) 

-4715.7  0.0  -212.5   1) 

-4796.2   0.0  -212.5   1) 

-4794.7   -8.25  0.0   1);;519 

-4717.2   -8.25  0.0   1) 

-4717.2   -8.25  -212.5   1) 

-4794.7  -8.25  -212.5   1) 


4367.9 

0.0 

0.0  1), 

;523 

4367.9 

0.0 

-212.5 

1) 

4287.4 

0.0 

-212.5 

1) 

4287.4 

0.0 

0.0  1) 

4287.4 

0.0 

-212.5 

1) 

4367.9 

0.0 

-212.5 

1) 

-4366.4  -8.25  0.0   1);;529 
-4288.9   -8.25  0.0   1) 
-4288.9  -8.25  -212.5   1) 


212 


(-4366.4  -8.25  -212.5   1) 


-4228.4  0.0 

0.0  1) 

;533 

-4228.4  0.0 

-212.5 

1) 

-4046.4  0.0 

-212.5 

1) 

-4046.4  0.0 

0.0  1) 

-4046.4  0.0 

-212.5 

1) 

-4228.4  0.0 

-212.5 

1) 

-4226.9  -8.25  0.0   1);;539 

-4047.9  -8.25  0.0   1) 

-4047.9   -8.25  -212.5   1) 

-4226.9   -8.25  -212.5   1) 


3999.8  0.0 

0.0  1) 

;543 

3999.8  0.0 

-212.5 

1) 

3919.3  0.0 

-212.5 

1) 

3919.3  0.0 

0.0  1) 

3919.3  0.0 

-212.5 

1) 

3999.8  0.0 

-212.5 

1) 

-3998.3  -8.25  0.0   1);;549 

-3920.8  -8.25  0.0   1) 

-3920.8  -8.25  -212.5   1) 

-3998.3  -8.25  -212.5   1) 


3351.3  0.0 

0.0  1) 

;553 

3351.3  0.0 

-212.5 

1) 

3260.3  0.0 

-212.5 

1) 

3260.3  0.0 

0.0  1) 

3260.3  0.0 

-212.5 

1) 

3351.3  0.0 

-212.5 

1) 

-3349.8  -8.25  0.0   1);;559 

-3261.8  -8.25  0.0   1) 

-3261.8  -8.25  -212.5   1) 

-3349.8  -8.25  -212.5   1) 

-3131.4  -94.25  0.0   1);;563  room  242 

-3131.4  -94.25  -212.5   1) 

-3131.4  -185.25  -212.5   1) 

-3131.4  -185.25  0.0   1) 
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-2014.0  -352.25  0.0   1);;567  room  242 

-2014.0  -352.25  -212.5   1) 

-2014.0  -261.25  -212.5   1) 

-2014.0  -261.25  0.0   1) 


1971.4  0.0 

0.0  1) 

;571 

1971.4  0.0 

-212.5 

1) 

1880.4  0.0 

-212.5 

1) 

1880.4  0.0 

0.0  1) 

1880.4  0.0 

-212.5 

1) 

1971.4  0.0 

-212.5 

1) 

■1969.9  -8.25  0.0   1); ;577 
■1881.9  -8.25  0.0   1) 
■1881.9  -8.25  -212.5   1) 
•1969.9  -8.25  -212.5   1) 


1553.2  0.0 

0.0  1) 

;581 

1553.2  0.0 

-212.5 

1) 

1462.2  0.0 

-212.5 

1) 

1462.2  0.0 

0.0  1) 

1462.2  0.0 

-212.5 

1) 

1553.2  0.0 

-212.5 

1) 

1551.7  -8.25  0.0  1);;587 

1463.7  -8.25  0.0  1) 

1463.7  -8.25  -212.5  1) 

1551.7  -8.25  -212.5  1) 


1311.9  0.0 

0.0  1) 

;591 

1311.9  0.0 

-212.5 

1) 

1220.9  0.0 

-212.5 

1) 

1220.9  0.0 

0.0  1) 

1220.9  0.0 

-212.5 

1) 

1311.9  0.0 

-212.5 

1) 

•1310.4  -8.25   0.0   1); ;597 

1222.4  -8.25  0.0   1) 

1222.4  -8.25  -212.5   1) 

1310.4  -8.25  -212.5   1) 


214 


834.4  0.0 

0.0  1) 

;601 

834.4  0.0 

-212.5 

1) 

743.4  0.0 

-212.5 

1) 

743.4  0.0 

0.0  1) 

743.4  0.0 

-212.5 

1) 

834.4  0.0 

-212.5 

1) 

-832.9  -8.25  0.0   1);;607 

-744.9  -8.25  0.0   1) 

-744.9  -8.25  -212.5   1) 

-832.9  -8.25  -212.5   1) 

-417.1   0.0  0.0   1);;611 

-417.1   0.0  -212.5   1) 

-326.1   0.0  -212.5   1) 

-326.1   0.0  0.0   1) 

-326.1   0.0  -212.5   1) 

-417.1   0.0  -212.5   1) 

-415.6   -8.25  0.0   1);;617 

-327.6  -8.25  0.0   1) 

-327.6  -8.25  -212.5   1) 

-415.6  -8.25  -212.5   1) 


265.9  0.0 

0.0  1) 

;621 

265.9  0.0 

-212.5 

1) 

174.9  0.0 

-212.5 

1) 

174.9  0.0 

0.0  1) 

174.9  0.0 

-212.5 

1) 

265.9  0.0 

-212.5 

1) 

-264.4  -8.25  0.0  1);;627 

-176.4  -8.25  0.0   1) 

-176.4  -8.25  -212.5   1) 

-264.4  -8.25  -212.5   1) 


893.5  771.9 

0.0  1) 

;  631  elev 

893.5  771.9 

-212.5 

1) 

893.5  635.9 

-212.5 

1) 

893.5  635.9 

0.0  1) 

893.5  635.9 

-212.5 

1) 

893.5  771.9 

-212.5 

1) 
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(-956.5  771.9   0.0   1);;637 

(-956.5  771.9  -212.5   1) 

(-956.5  635.9  -212.5   1) 

(-956.5  635.9  0.0   1) 


(-893.5  477.4 

0.0  1) 

;  641  elev 

(-893.5  477.4 

-212.5 

1) 

(-893.5  341.7 

-212.5 

1) 

(-893.5  341.7 

0.0  1) 

(-893.5  341.7 

-212.5 

1) 

(-893.5  477.4 

-212.5 

1) 

(-956.5  477.4  0.0   1);;647 

(-956.5  477.4  -212.5   1) 

(-956.5  341.7  -212.5   1) 

(-956.5  341.7  0.0   1) 

(-4137.4  -8.25  0.0   1); ;651 
(-4137.4  -8.25  -212.5   1) 


; ;end  doors 

; ; ceiling 

(-657.8 

248.5 

0.0  1) 

i 

(-657.8 

248.5 

-212.5 

1 

(-893.5 

248.5 

-212.5 

1 

(-893.5 

248.5 

0.0  1) 

(-893.5 

248.5 

-212.5 

1 

(-893.5 

262.5 

-212.5 

1 

(-893.5 

262.5 

-286.5 

1 

(-893.5 

262.5 

-212.5 

1 

(-657.8 

262.5 

-212.5 

1 

(-657.8 

262.5 

-286.5 

1 

(-657.8 

262.5 

-212.5 

1 

(-657.8 

248.5 

-212.5 

1 

;653 


-893.5  262.5  -286.5  1 

-657.8  262.5  -286.5  1 

-657.8  845.5  -286.5  1 
-657.8  845.5  0.0  1) 

-657.8  845.5  -286.5  1) 


;;665 
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-893.5  845.5  -286.5  1) 
-893.5  845.5  0.0  1) 
-893.5  845.5  -286.5  1) 


•3692.0 

248.5 

0.0  1) 

;;673 

•3692.0 

248.5 

-212.5 

1) 

3962.2 

248.5 

-212.5 

1) 

3962.2 

248.5 

0.0  1) 

3962.2 

248.5 

-212.5 

1) 

3962.2 

262.5 

-212.5 

1) 

3962.2 

262.5 

-286.5 

1) 

3962.2 

262.5 

-212.5 

1) 

3692.0 

262.5 

-212.5 

1) 

3692.0 

262.5 

-286.5 

1) 

3692.0 

262.5 

-212.5 

1) 

3692.0 

248.5 

-212.5 

1) 

3962.2 

262.5 

-286.5 

D;;6 

3692.0 

262.5 

-286.5 

l) 

3692.0 

727.3 

-286.5 

l) 

3692.0 

727.3 

0.0  1) 

3692.0 

727.3 

-286.5 

l) 

3711.6 

727.3 

-286.5 

l) 

3711.6 

727.3 

0.0  1) 

3711.6 

727.3 

-286.5 

l) 

3711.6 

809.7 

-286.5 

l) 

3711.6 

809.7 

0.0  1) 

3711.6 

809.7 

-286.5 

l) 

3962.2 

809.7 

-286.5 

l) 

3962.2 

809.7 

0.0  1) 

3962.2 

809.7 

-286.5 

l) 

5680.7 

248.5 

0.0  1) 

;;699 

5680.7 

248.5 

-212.5 

1) 

5819.2 

248.5 

-212.5 

1) 

5819.2 

248.5 

0.0  1) 

5819.2 

248.5 

-212.5 

1) 

5819.2 

276.0 

-212.5 

1) 

5819.2 

276.0 

-217.5 

1) 

5819.2 

276.0 

-212.5 

1) 

5680.7 

276.0 

-212.5 

1) 
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-5680.7  276.0  -217.5  1) 
■5680.7  276.0  -212.5  1) 
-5680.7  248.5  -212.5   1) 


5819 

2 

276 

.0 

-217.5 

1) 

5680 

7 

276 

.0 

-217.5 

1) 

5680 

7 

375 

5 

-217.5 

1) 

5680 

7 

375 

5 

0.0  1) 

5680 

7 

375 

5 

-217.5 

1) 

5819 

2 

375 

5 

-217.5 

1) 

5819 

2 

375 

5 

0.0  1) 

5819 

2 

375 

5 

-217.5 

1) 

;7U 


-4534.0  0.0  0.0   1);;719 
-4534.0   0.0  -212.5   1) 
-4534.0  -48.0  -212.5   1) 
-4534.0  -48.0  0.0   1) 

-4447.9  0.0  0.0   1);;723 
-4447.9  0.0  -212.5   1) 
-4447.9  -48.0  -212.5   1) 
-4447.9  -48.0   0.0   1) 

; water  fountain 
-4516.9  0.0  0.0  1);;727 
-4516.9  0.0  -94.0  1) 
-4516.9  -31.0  -94.0  1) 
-4516.9  -31.0  0.0  1) 

-4485.9  0.0  0.0  1);;731 
-4485.9  0.0  -94.0  1) 
-4485.9  -31.0  -94.0  1) 
-4485.9  -31.0  0.0  1) 

;boxl 

-2729.2  -491.85  0.0  1) ; ;735 
-2729.2  -491.85  -61.0  1) 
-2729.2  -427.85  -61.0  1) 
-2729.2  -427.85  0.0  1) 


(-2973.2  -491.85  0.0  1);;739 
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-2973.2  -491.85  -61.0  1) 
-2973.2  -427.85  -61.0  1) 
-2973.2  -427.85  0.0  1) 

;box2 

-2729.2  -276.85  0.0  1);;743 

-2729.2  -276.85  -61.0  1) 

-2729.2  -152.85  -61.0  1) 

-2729.2  -152.85  0.0  1) 

-2973.2  -276.85  0.0  1);;747 

-2973.2  -276.85  -61.0  1) 

-2973.2  -152.85  -61.0  1) 

-2973.2  -152.85  0.0  1) 

;elevl 

-956.5  818.9  0.0  1);;751 
-956.5  818.9  -233.0  1) 
-1096.68  818.9  -233.0  1) 
-1096.68  818.9  0.0  1) 

-956.5  588.9  0.0  1);;755 
-956.5  588.9.-233.0  1) 
-1096.68  588.9  -233.0  1) 
-1096.68  588.9  0.0  1) 

;elev2 

-956.5  524.7  0.0  1);;759 
-956.5  524.7  -233.0  1) 
-1096.68  524.7  -233.0  1) 
-1096.68  524.7  0.0  1) 

-956.5  294.7  0.0  1);;763 
-956.5  294.7  -233.0  1) 
-1096.68  294.7  -233.0  1) 
-1096.68  294.7  0.0  1) 

;mail 

-507.1  0.0  0.0  1);;767 
-507.1  0.0  -257  1) 
-484.6  0.0  -257  1) 
-484.6  0.0  0.0  1) 
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;;grid 

(-3276.8  248.5  0.0  1);;771 

(-3358.2  248.5  0.0  1) 

(-3358.2  248.5  -45.5   1) 

(-3276.8  248.5  -45.5   1) 


; ; island  scrub  board  extern 

(-2922.0  0.0  0.0  1);;775 

(-2922.0  0.0  -10.0  1) 

(-2128.0  0.0  -10.0  1) 

(-2128.0  0.0  0.0  1) 

(-2927.0  0.0  0.0  1);;779 

(-2927.0  0.0  -212.5  1) 

(-3018.8  0.0  -212.5  1) 

(-3018.8  0.0  0.0  1) 

(-2123.0  0.0  0.0  1);;783 

(-2123.0  0.0  -212.5  1) 

(-2032.0  0.0  -212.5  1) 

(-2032.0  0.0  0.0  1) 


; ;242  ceiling 

(-2545.0  -13.25  -370.0  1)  ;  ;787 

(-2545.0  -89.25  -370.0  1) 

(-2596.0  -89.25  -370.0  1) 

(-2596.0  -13.25  -370.0  1) 

(-3114.0  -13.25  -370.0  1) 

(-3114.0  -89.25  -370.0  1) 

(-3131.4  -89.25  -370.0  1) 

(-3131.4  -609.85  -370.0  1) 

(-2014.0  -609.85  -370.0  1) 

(-2014.0  -89.25  -370.0  1) 

(-2032.0  -89.25  -370.0  1) 

(-2032.0  -13.25  -370.0  1) 


(-2545.0  -13.25  0.0  1); ;799 
(-2545.0  -89.25  0.0  1) 
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-2596.0  -89.25  0.0  1) 

-2596.0  -13.25  0.0  1) 

-3114.0  -13.25  0.0  1) 

-3114.0  -89.25  0.0  1) 

-3131.4  -89.25  0.0  1) 

-3131.4  -609.85  0.0  1) 

-2014.0  -609.85  0.0  1) 

-2014.0  -89.25  0.0  1) 

-2032.0  -89.25  0.0  1) 

-2032.0  -13.25  0.0  1) 

; island  scrub  board  intern 
-2128.0  -13.25  0.0  1);;811 
-2545.0  -13.25  0.0  1) 
-2545.0  -89.25  0.0  1) 
-2565.0  -89.25  0.0  1) 
-2565.0  -104.25  0.0  1) 
-2565.0  -104.25  -10.0  1) 
-2565.0  -89.25  -10.0  1) 
-2545.0  -89.25  -10.0  1) 
-2545.0  -13.25  -10.0  1) 
-2128.0  -13.25  -10.0  1) 

-2576.0  -104.25  0.0  1);;821 
-2576.0  -89.25  0.0  1) 
-2596.0  -89.25  0.0  1) 
-2596.0  -13.25  0.0  1) 
-2922.0  -13.25  0.0  1) 
-2922.0  -13.25  -10.0  1) 
-2596.0  -13.25  -10.0  1) 
-2596.0  -89.25  -10.0  1) 
-2576.0  -89.25  -10.0  1) 
-2576.0  -104.25  -10.0  1) 

;wall  between  240  242 
-2565.0  -89.25  0.0  1) ; ;831 
-2565.0  -89.25  -246.0  1) 
-2576.0  -89.25  -246.0  1) 
-2576.0  -89.25  0.0  1) 

-2565.0  -609.85  0.0  1);;835 
-2565.0  -609.85  -246.0  1) 


221 


(-2576.0  -609.85  -246.0  1) 
(-2576.0  -609.85  0.0  1) 


;;door  between  240  242 

(-2565.0  -201.65  0.0  1);;839 

(-2576.0  -201.65  0.0  1) 

(-2576.0  -201.65  -212.5  1) 

(-2565.0  -201.65  -212.5  1) 

(-2565.0  -109.25  0.0  1);;843 

(-2576.0  -109.25  0.0  1) 

(-2576.0  -109.25  -212.5  1) 

(-2565.0  -109.25  -212.5  1) 


;  ;  island 

(-2123.0  -13.25  0.0  1);;847 

(-2545.0  -13.25  0.0  1) 

(-2545.0  -89.25  0.0  1) 

(-2565.0  -89.25  0.0  1) 

(-2565.0  -109.25  0.0  1) 

(-2576.0  -109.25  0.0  1) 

(-2576.0  -89.25  0.0  1) 

(-2596.0  -89.25  0.0  1) 

(-2596.0  -13.25  0.0  1) 

(-2927.0  -13.25  0.0  1) 

(-2927.0  0.0  0.0  1) 

(-2123.0  0.0  0.0  1) 


(polygon-list  *floor*) 


'( 

( 


;  ;  floor 

23456789  10 
11  12  13  14  15  16  17  18  19  20 
21  22  23  24  25  26  27  28  29  30 
31  32  33  34  35  36  37  38  39  40 
41  42  43  44  45  46  47  48  49  50 
51  52  53  54  55  56  57  58  59  60 
61  62  63  64  65  66  67  68  69  70 
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71  72  73  74  75  76  77  78  79  80 

81  82  83  84  85  86  87  88  89  90 

91  92  93  94  95  96  97  98  99  100 

101  102  103  104  105  106  107  108  109  110 

111  112  113  114  115  116  117  118  119  120 

121  122  123  124  125  126  127  128  129  130 

131  132  133  134  135  136  137  138  139  140  141) 

; ;bebedouro 

(142  143  144  145) 
island 

(146  147  148  149  150  151  152  153  154  155  156) 
boxl 

(157  158  159  160) 

; ;box2 

(161  162  163  164) 

; ;ceilingl 

(165  166  167  168  169  170  171  172) 

(1  165) (2  166) (69  167) (70  168) 

; ;ceiling2 

(173  174  175  176  177  178  179  180  181  182) 

; ;ceiling3 

(183  184  185  186) 

(173  183) (174  184) (175  185) (176  186) 

; ;rodape 

(187  188  189  190) 

(191  192  193  194  195  196) 

(197  198  199  200) 

(201  202  203  204  205  206) 

(207  208  209  210  211  212) 

(213  214  215  216) 

(217  218  219  220  221  222) 

(223  224  225  226) 

(227  228  229  230) 

(231  232  233  234) 

(235  236  237  238) 

(239  240  241  242  243  244) 

(245  246  247  248  249  250  251  252  253  254) 

(255  256  257  258) 

(259  260  261  262) 

(263  264  265  266  267  268  269  270) 

(271  272  273  274  275  276) 
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(277 

278 

279 

280) 

(281 

282 

283 

284) 

(285 

286 

287 

288) 

(289 

290 

291 

292  293 

294 

295 

296  297  298  299  300) 

(301 

302 

303 

304) 

(305 

306 

307 

308) 

(309 

310 

311 

312) 

(313 

314 

315 

316) 

(317 

318 

319 

320  321 

322 

323 

324) 

(325 

326 

327 

328  329 

330 

331 

332) 

(333 

334 

335 

336  337 

338 

339 

340) 

(341 

342 

343 

344  345 

346 

347 

348) 

(349 

350 

351 

352) 

(353 

354 

355 

356) 

(357 

358 

359 

360) 

(361 

362 

363 

364) 

(365 

366 

367 

368) 

(369 

370 

371 

372) 

(373 

374 

375 

376) 

(377 

378 

379 

380) 

; ; doors 

(381 

382 

383 

384) 

(385 

386) 

(387  388  389  390  391  392) 

(393  394  395  396) 

(397  398  399  400  401  402) 

(403  404  405  406) 

(407  408  409  410) 

(411  412) 

(413  414  415  416  417  418) 

(419  420  421  422) 

(423  424  425  426  427  428) 

(429  430  431  432) 

(433  434  435  436  437  438) 

(439  440  441  442) 
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(443  444  445  446  447  448) 
(449  450  451  452) 

(453  454  455  456  457  458) 
(459  460  461  462) 

(463  464  465  466) 
(467  468) 

(469  470  471  472  473  474) 
(475  476  477  478) 

(479  480  481  482  483  484) 
(485  486  487  488) 

(489  490  491  492) 

(493  494  495  496  497  498) 
(499  500  501  502) 

(503  504  505  506  507  508) 
(509  510  511  512) 

(513  514  515  516  517  518) 
(519  520  521  522) 

(523  524  525  526  527  528) 
(529  530  531  532) 

(533  534  535  536  537  538) 
(539  540  541  542) 

(543  544  545  546  547  548) 
(549  550  551  552) 

(553  554  555  556  557  558) 
(559  560  561  562) 

(563  564  565  566) 

(567  568  569  570) 
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(571  572  573  574  575  576) 
(577  578  579  580) 

(581  582  583  584  585  586) 
(587  588  589  590) 

(591  592  593  594  595  596) 
(597  598  599  600) 

(601  602  603  604  605  606) 
(607  608  609  610) 

(601  602  603  604  605  606) 
(607  608  609  610) 

(611  612  613  614  615  616) 
(617  618  619  620) 

(621  622  623  624  625  626) 
(627  628  629  630) 

(631  632  633  634  635  636) 
(637  638  639  640) 
(632  638)  (633  639) 

(641  642  643  644  645  646) 
(647  648  649  650) 
(642  648)  (643  649) 

(651  652) 

; ; ceiling 

(653  654  655  656  657  658  659  660  661  662  663  664) 

(665  666  667  668  669  670  671  672) 

(673  674  675  676  677  678  679  680  681  682  683  684) 

(685  686  687  688  689  690  691  692  693  694  695  696  697  698) 

(699  700  701  702  703  704  705  706  707  708  709  710) 
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(711  712  713  714  715  716  717  718) 


(719  720  721  722)  (723  724  725  726)  (720  724)  (721  725) 

(727  728  729  730)  (731  732  733  734)  (728  732)  (729  733) 

(735  736  737  738)  (739  740  741  742)  (736  740)  (737  741) 

(743  744  745  746)  (747  748  749  750)  (744  748)  (745  749) 


(751  752  753  754)  (755  756  757  758)  (752  756)  (753  757) 

(759  760  761  762)  (763  764  765  766)  (760  764)  (761  765) 

(767  768  769  770) 

(771  772  773  774) 

(775  776  777  778) 

(779  780  781  782) 

(783  784  785  786) 

(787  788  789  790  791  792  793  794  795  796  797  798) 
(787  799) (788  800) (789  801) (790  802) (791  803) (792  804) 
(793  805) (794  806) (795  807) (796  808) (797  809) (798  810) 

(811  812  813  814  815  816  817  818  819  820) 

(821  822  823  824  825  826  827  828  829  830) 

(831  832  833  834) 

(835  836  837  838)  (832  836) (833  837) 

(839  840  841  842) 

(843  844  845  846)  (841  845) (842  846) 

(847  848  849  850  851  852  853  854  855  856  857  858) 


))) 


227 


228 


APPENDIX  H.  C  CODE  FOR  FINDING  THE 
VISIBLE  VERTICAL  EDGES 
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/*************************************************************************** 

FILENAME:  main.c 

PURPOSE:  Main  function  for  finding  the  visible  vertical  edges 
given  a  2D  map 

AUTHOR:  Jader  Gomes  da  Silva  Filho 

DATE:  04/14/97 
******************************************************************** 

#include  "path.h" 
#include  "display. h" 
#include  <stdio.h> 
#include  "utilities. h" 


#define  Tread  =  "r"; 
#define  Twrite  =  "w" ; 


int 

mainO 

{ 

Display_list  *list; 

int  i; 

long  wid; 

Polygon  *current_poly,  *pl,  *p2,  *p3,  *p4; 

Node.list  *s_list; 

Vertex  *goal,  *start,  *vl; 

Vertex_pair  *vp; 

World  *w; 

char  *infilenamel  =  "floor2.dat"; 

/♦char  *infilenamel  =  "positive.dat" ;*/ 

char  *infilename2  =  "island.dat"; 

char  *infilename3  =  "boxl.dat"; 

char  *infilename4  =  "box2.dat"; 

char  *outfilename  =  "output"; 

char  *outf ilenamel  =  "outtest"; 

char  *type ; 

CONFIGURATION  q; 

int  valid; 

FILE  *infile; 

FILE  *outfile; 

Stack  *vis_stack; 

Point  camera_pos; 
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double  dummy; 

#ifdef  IRIS 

/*  debugging  flag  */ 

foreground () ; 
#endif 

q. point. x  =  0.0; 
q. point. y  =  0.0; 
q.theta  =  0.0; 
q. kappa  =  0.0; 

0penFile(&outf ile,  outf ilename, "w" ,  ""); 
/♦outfile  =  fopen(outf ilename, "w") ;*/ 

/*  make  a  world  */ 
w  =  create_world() ; 

/*  make  a  polygon  */ 
pi  =  create_polygon() ; 

/*  add  floor  vertices  */ 
0penFile(&infile,  inf ilenamel, "r" ,  ""); 
/♦infile  =  fopen(inf ilenamel, "r") ;*/ 

while  (!feof (infile))  { 

valid  =  fscanf  (inf  ile,  "°/.lf  °/,lf\n",  &q.  point,  x,  &q. point. y); 

add_vertex_to_polygon(q. point .x,  q. point. y,  pi); 

PrintFile (outf ile,  q) ; 

/♦printf  ("'/.If  7.1f\n",  q. point. x,  q. point. y); 

fprintf  (outf  ile,  "'/.If  °/,lf\n",  q.  point,  x,  q. point .y) ;*/ 
} 

PrintFile (outf ile,  pl->f irst_vertex->point) ; 
f close(inf ile) ; 
fprintf  (outfile, "\n") ; 

/*  attach  polygon  to  world  */ 
add_polygon_to_world(pl,  w) ; 

/*  make  another  polygon  */ 
p2  =  create_polygon() ; 
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OpenFile(&infile,  inf ilename2, "r" ,  ""); 
/*infile  =  f open(inf ilename2, "r") ; */ 

while  (Ifeof Unfile))  { 

valid  =  fscanf  (inf  ile,  "70lf   °/,lf  \n"  ,    &q.  point,  x,    &q.  point,  y); 

add_vertex_to_polygon(q. point .x,    q. point. y,    p2) ; 

PrintFile (outf ile,  q) ; 

/*printf  ("°/,lf  °/,lf\n",  q. point. x,  q. point. y); 

fprintf  (outf  ile,"°/,lf  %lf  \n"  ,  q.  point,  x,  q.  point  .y)  ;*/ 
} 

PrintFileCoutfile,    p2->f irst_vertex->point) ; 
f  closeUnf  ile) ; 
fprintf    (outfile,"\n") ; 
add_polygon_to_world(p2,    w) ; 

/*  create  another  polygon  */ 
p3  =  create_polygon() ; 

OpenFile(&infile,  inf ilename3, "r" ,  ""); 
/*infile  =  fopenUnf  ilename3,  "r")  ;*/ 

while  (Ifeof (inf ile))  { 

valid  =  fscanf  (inf  ile,  "7.1f  7,lf\n",  &q.  point,  x,  &q.  point,  y); 

add_vertex_t o_polygon(q. point .x,  q. point. y,  p3) ; 

PrintFile (outf ile,  q) ; 

/♦printf  ("7.1f  7olf\n",  q. point. x,  q. point. y); 

fprintf  (outf  ile,  "7olf  7olf\n",  q.  point,  x,  q.  point  .y)  ;*/ 
} 

PrintFile (outf ile,  p3->f irst_vertex->point) ; 
fclose(inf ile) ; 
fprintf  ( outf ile, "\n") ; 
add_polygon_to_world(p3,  w) ; 

/*  and  another  */ 

p4  =  create_polygon() ; 

OpenFile(&inf ile,  inf ilename4, "r" ,  ""); 
/*infile  =  fopenUnf  ilename4,  "r")  ;*/ 

while  (Ifeof (inf ile))  { 

valid  =  f  scanf  (inf  ile,  "7olf  7olf\n",  &q. point. x,  &q. point. y); 
add_vertex_to_polygon(q. point .x,  q. point. y,  p4) ; 
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PrintFile (outf ile,  q) ; 

/*printf  ('"/.If  %lf\n",  q. point. x,  q. point. y); 

fprintf  (outf  ile,  "7,lf  °/,lf  \n"  ,  q.  point,  x,  q.  point  .y)  ;  */ 
} 

PrintFile (outf ile,  p4->f irst_vertex->point) ; 
fclose(inf ile) ; 

add_polygon_to_world(p4,  w) ; 

/*  create  isolated  vertex  for  start  and  goal  */ 
goal  =  create_isolated_vertex(5.0,  5.0); 
start  =  create_isolated_vertex(95.0,  95.0); 

#ifdef  IRIS 

/*  initialize  the  display  list  */ 
list  =  create_display_list () ; 
add_world_to_display_list (w,  list) ; 
add_start_to_display_list (start ,  list)  ; 
add_goal_to_display_list (goal,  list)  ; 

/*  ok  lets  see  it,  init  the  screen  and  show  the  display  list  */ 
wid  =  open_display_window() ; 
#endif 

/*  do  the  dijkstra  search  and  show  it  progressively  on  the  screen  */ 
s_list  =  dijkstra_search(start ,  goal,  w,  A_STAR,  wid,  list); 

#ifdef  IRIS 

/*  display  the  final  path  */ 
show_display_list (list ,  wid); 
display_best_path(s_list ,  wid); 
swapbuffersO  ; 

while(l); 
#endif 

fclose(outf ile) ; 

Get_Cam_Pos(&camera_pos) ; 

vis_stack  =  Find_Visibility(pl,camera_pos) ; 

OpenFile(&outfile,  outf ilenarael, "w" ,  ""); 
q. point  =  camera_pos; 
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PrintFile(outf ile,  q) ; 

while  (vis.stack  !=  NULL) 
{ 

pop (&vis_stack , &q . point , fedummy ) ; 
PrintFile(outfile,  q) ; 

} 
f close (outfile) ; 
return  0; 
} 


234 


z************************************************************************^ 

FILENAME:  utilities. c 

PURPOSE:  utility  programs  for  spatial  reasoning  library 

CONTAINS:  order () 
tangent () 
is_tangent () 
common. tangent () 
switch_mode() 
segment_crossing_test 0 
linearize () 
orientationO 
normalize  0 
areaO 
fatal  () 

AUTHOR:  C.P.  Lombardo 

DATE:  01/22/91 

CHANGES:      Jader  Gomes  da  Silva  Filho 

LAST  UPDATE:  04/14/97 
******************************************** 

#include  "spatial. h" 
#include  "utilities. h" 
#include  <stdio.h> 


FUNCTION:    order (pi,  p2,  p3) 
PARAMETERS:  Point  pi  the  first  point 
Point  p2  the  second  point 
Point  p3  the  third  point 
PURPOSE:    determine  the  order  (i.e.  CW  or  CCW)  of  three  points 
RETURNS:    int  CW  if  clockwise 

CCW  if  counterclockwise 
CALLED  BY:   tangent 0 

is_tangent() 
common. tangent () 
segment_crossing_test() 

vertex_pair_poly_crossing_test ()  <path. c> 
segment_splitting_test()  <path.c> 
ANYBODY 
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CALLS :      NONE 

COMMENTS:   can  also  be  done  with  atan2()  call 

******************************************************************************/ 

int  order (pi,  p2,  p3) 

Point  pi; 

Point  p2; 

Point  p3; 

{ 

double  area; 

/*  calculate  the  area  of  the  triangle  */ 
area  =  0.5  *  ((p2.x  -  pl.x)  *  (p3.y  -  pl.y)  - 
(p3.x  -  pl.x)  *  (p2.y  -  pl.y)); 

if  (area  >  0.0) 
return (CCW) ; 

else  if  (area  <  0.0) 
return (CW) ; 

else 

return (0) ; 

} 

FUNCTION:   tangent (v,  poly,  mode) 

PARAMETERS:  Vertex  *v  a  vertex  (i.e.  point)  outside  of  polygon  poly 
Polygon  *poly  the  polygon 
int  mode  the  mode  -  either  CCW  or  CW 
PURPOSE:    determine  tangents  from  a  point  to  a  polygon 
RETURNS:    Vertex  * 
CALLED  BY:   init_node_costs()  <path.c> 

update_node_costs()  <path.c> 
ANYBODY 
CALLS:      is_tangent() 

order () 
COMMENTS:    currently  convex  polygons  only 

0(n)  search  for  the  right  vertex 
******************************************************************** 

Vertex  *tangent(v,  poly,  mode) 
Vertex  *v; 
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Polygon  *poly; 

int  mode; 

{ 

Vertex 

♦current .vertex,  /*  the  current  vertex  */ 

*next_vertex,  /*  the  next  vertex  after  current_vertex  */ 

*previous_vertex;        /*  the  vertex  before  current.vertex  */ 

/*  get  the  first  vertex  */ 

current .vertex  =  poly->f irst_vertex; 

while (TRUE)  { 

/*  is  this  the  right  vertex  */ 
if (is_tangent(v->point,  current_vertex,  mode)) 
break; 

/*  now  based  on  the  mode  move  the  proper  way  around  the  poly 
*  go  right  for  CCW  go  left  for  CW 
*/ 
if (mode  ==  CCW)  { 

if (order (v->point ,  current_vertex->point , 

current_vertex->next->point)  >=  0) 
current_vertex  =  current _vertex->previous ; 

else 
current.vertex  =  current_vertex->next ; 
} 

else  { 

if (order (v->point ,  current_vertex->point , 

current_vertex->next->point)  >=  0) 
current _vertex  =  current_vertex->next ; 

else 
current_vertex  =  current _vertex->previous ; 
} 
} 

return (current .vertex) ; 
} 

FUNCTION:   is_tangent (pt ,  v,  mode) 

PARAMETERS:  Point  pt  the  point  away  from  the  polygon 
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Vertex  *v  the  vertex  on  the  polygon  to  test 
int  mode  the  mode  of  the  tangent  sought  -  CCW  or  CW 
PURPOSE:    determine  if  pt  and  v  make  a  tangent  of  the  right  mode 
RETURNS:    int  :   1  -  yes  it  is  the  right  tangent 

0  -  not  it  is  not  the  right  tangent 
CALLED  BY:   tangent () 

common_ tangent () 
ANYBODY 
CALLS:      order () 

COMMENTS:   currently  convex  polygons  only 
************************************************ 

int  is_tangent (pt ,  v,  mode) 

Point  pt; 

Vertex  *v; 

int  mode; 

{ 

switch  (mode)  { 

case  CCW:  /*  the  +  tangent  */ 

if (order (pt,  v->point,  v->next->point)  >=  0  && 
order (pt,  v->point,  v->previous->point)  >=  0) 
return (1) ; 

break; 

case  CW:  /*  the  -  tangent  */ 

if (order (pt,  v->point,  v->next->point)  <=  0  && 
order (pt,  v->point,  v->previous->point)  <=  0) 
return (1) ; 


/*  other  wise  it  is  not  the  right  tangent  */ 

return (0) ; 

} 
/***************************************************************************** 

FUNCTION:   common. tangent (pi ,  p2,  model,  mode2) 
PARAMETERS:  Polygon  *pl  the  first  polygon 

Polygon  *p2  the  seconde  polygon 
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int  model  the  mode  of  the  tangent  for  pi  -  CCW  or  CW 
int  mode2  the  mode  for  p2  -  either  CCW  or  CW 
PURPOSE:    determine  common  tangents  for  two  polygons 
RETURNS:    Vertex_pair  * 
CALLED  BY:   update_node_costs()  <path.c> 

ANYBODY 
CALLS:      is_tangent() 
order () 
switch_mode() 
COMMENTS:    currently  convex  polygons  only 
********************************************************************** 

Vertex_pair  *common_tangent (pi ,  p2,  model,  mode2) 
Polygon  *pl; 
Polygon  *p2; 
int  model; 
int  mode2; 
{ 
int 

pl_flag  =  0,  /*  flag  denoting  a  current  tangent  with  pi  */ 
p2_flag  =  0;  /*  same  for  p2  */ 
Vertex_pair 

*tangent_line;  /*  the  resultant  tangent  line  */ 
Vertex 

*vl,  /*  the  current  vertex  for  pi  */ 
*v2;  /*  the  current  vertex  for  p2  */ 

/*  get  the  first  vertices  */ 
vl  =  pl->f irst_vertex; 
v2  =  p2->f irst_vertex; 

while (pl_f lag  ==  0  I  I  p2_flag  ==  0)  { 

/*  check  the  polyl  tangent  using  the  point  from  poly2  */ 
if (is_tangent(vl->point ,  v2,  mode2)) 
p2_flag  =  1; 

else  { 

p2_flag  =  0; 

/*  move  v2  accordingly  */ 
if(mode2  ==  CCW)  { 
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if (order (vl->point,    v2->point,   v2->next->point)    >=  0) 

v2  =  v2->previous; 
else 

v2  =  v2->next; 
} 

else  { 
if (order (vl->point,  v2->point,  v2->next->point)  >=  0) 

v2  =  v2->next ; 
else 

v2  =  v2->previous; 
} 
} 

/*  now  check  poly2  -  note  that  the  mode  is  switched:  CW  to  CCW,  CCW  to  CW  */ 
if (is_tangent(v2->point ,  vl,  switch_mode (model))) 
pl.flag  =  1; 

else  { 

pl.flag  =  0; 

/*  move  vl  accordingly  */ 
if (switch_mode (model)  ==  CCW)  { 
if (order (v2->point,  vl->point,  vl->next->point)  >=  0) 

vl  =  vl->previous; 
else 

vl  =  vl->next; 
} 

else  { 
if (order (v2->point,  vl->point,  vl->next->point)  >=  0) 

vl  =  vl->next; 
else 

vl  =  vl->previous; 
} 
} 
} 

/*  allocate  space  for  the  vertex  pair  */ 

if ((tangent_line  =  (Vertex_pair  *)malloc(sizeof (Vertex_pair)))  ==  NULL)  { 

fatal ( " common_ tangent :  malloc\n" ) ; 
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exit (FAILURE); 
} 

tangent_line->vl  =  vl; 
tangent_line->v2  =  v2; 

return (tangent_line) ; 
> 

FUNCTION:   switch_mode(mode) 
PARAMETERS:  int  mode  either  CCW  or  CW 
PURPOSE:    return  the  opposite  mode 
RETURNS :    int 
CALLED  BY:   common_ tangent () 
ANYBODY 

CALLS :      NONE 

********************************************************************** 

int  switch_mode(mode) 

int  mode; 

{ 

if (mode  ==  CCW) 

return (CW) ; 
else 

return (CCW) ; 

> 
/***************************************************************************** 

FUNCTION:    segment_crossing_test (11,  12) 
PARAMETERS:  Line_segment  *11  the  first  line  segment 

Line_segment  *12  the  second  line  segment 
PURPOSE:    determine  if  two  line  segments  cross,  touch  or  do  not  cross  or 

touch 
RETURNS:    int:  1  -  the  line  segments  cross 

0  -  the  line  segments  touch  only  but  do  not  cross 
-1  -  the  line  segments  do  not  touch  at  all 
CALLED  BY:   vertex_pair_poly_crossing_test 0  <path.c> 

ANYBODY 
CALLS:      order () 

linearize () 
COMMENTS : 
*****************************************************************************/ 

int  segment_crossing_test(ll,  12) 
Line_segment  *11; 
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Line_segment  *12; 

{ 

double  fl,  f2,  f3,  f4;  /*  linearization  values  for  the  4  points  */ 
int  ol,  o2,  o3,  o4;  /*  temp  variables  for  keeping  the  orders  */ 

/*  set  up  order  calculations  */ 

01  =  order(ll->pl,  ll->p2,  12->pl) 

02  =  order (ll->pl,  ll->p2,  12->p2) 

03  =  order (12->pl,  12->p2,  ll->pl) 

04  =  order (12->pl,  12->p2,  ll->p2) 


/*  test  for  crossing  first  -  only  one  case  */ 
if (ol  !=  0  &&  o2  !=  0  &&  ol  !=  o2  && 
o3  !=  0  &&  o4  !=  0  &&  o3  !=  o4) 
return (1) ; 


/*  now  test  for  touching  -  three  cases  here  one  more  below  */ 


if  (((ol  ==  0  II  o2  == 
((o3  ==  0  II  o4  == 
(((ol  ==  0  I  I  o2  = 
return (0) ; 


0)  &&  (o3  !=  0  &&  o4  !=  0  &&  o3  !=  o4))  I  I 
0)  &&  (ol  !=  0  &&  o2  !=  0  &&  ol  !=  o2))  I  I 
■■=   0)  &&  ol  !=  o2)  &&  ((o3  ==  0  II  o4  ==  0) 


o3  !=  o4)): 


/*  now  test  for  colinear  case  */ 

if (ol  ==  0  &&  o2  ==  0  &&  o3  ==  0  &&  o4  ==  0)  { 

/*  linearize  on  the  first  segment  */ 
fl  =  linearize (ll->pl,  11); 
f2  =  linearize (ll->p2,  11); 
f3  =  linearize (12->pl,  11); 
f4  =  linearize (12->p2,  11); 

/*  case:  non  overlapping  colinear  segments  */ 
if ((f3  <  0.0  &&  f4  <  0.0)  ||  (f3  >  f2  &&  f4  >  f2)) 
return(-l) ; 

/*  case:  overlapping  segments  */ 

if ((f3  <=  f2  &&  f3  >=  fl)  I  I  (f4  <=  f2  &&  f4  >=  fl)) 
return (0) ; 


/*  only  thing  left  is  no  touchy  no  crossy  */ 
return(-l) ; 
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/******************************************************************************* 
FUNCTION:   linearize (pt ,  line) 

PARAMETERS:  Point  pt  point  to  check  the  linearized  position 
on  line  segment  line 

Line_segment  *line  the  line  segment  to  use  as  reference 
PURPOSE:    determine  the  linearize  position  of  pt  on  line.   0  if  pt 
corresponds  to  the  first  point  in  line,  and  some  positive 
constant  if  pt  corresponds  to  the  2nd  point  in  the  segment 
RETURNS :    double 
CALLED  BY:   segment_crossing_test () 
CALLS :      NONE 
COMMENTS:   here  the  return  value  is  given  by: 

f(x,  y)  =  (x  -  xl)(x2  -  xl)  +  (y  -  yl)(y2  -  yl) 

*****************************************************************************/ 

double  linearize (pt,  line) 
Point  pt; 

Line_segment  *line; 
{ 

double 

fl,  /*  the  (x  -  xl)(x2  -  xl)  part  */ 

f2;  /*  the  (y  -  yl) (y2  -  yl)  part  */ 


fl  =  (pt.x  -  line->pl.x)  *  (line->p2.x  -  line->pl.x); 
f2  =  (pt.y  -  line->pl.y)  *  (line->p2.y  -  line->pl.y); 


return(f 1  +  f2) ; 

} 

FUNCTION:   orientation (pi ,  p2) 

PARAMETERS:  Point  *pl  the  first  point  of  the  line  segment 

Point  *p2  the  second  point  of  the  line  segment 
PURPOSE:    determine  the  angle  of  the  line  segment  drawn  from  pi  to  p2  with 

respect  to  the  x  axis.  This  angle  by  convention  will  be  between 
-pi  and  pi . 
RETURNS:    double:  the  angle  in  radians 
CALLED  BY:   ANYBODY 

CALLS :      NONE 

********************************************************************* 

double  orientation (pi ,  p2) 
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Point  *pl; 
Point  *p2; 
{ 

return (atan2(p2->y  -  pl->y,  p2->x  -  pl->x)); 

} 
/***************************************************************************** 

FUNCTION:  normalize (angle) 

PARAMETERS:  double  angle  the  angle  to  normalize 

PURPOSE:  normalize  the  input  angle  to  the  range  -pi  to  pi. 

RETURNS:  double:  the  normalized  angle  in  radians 

CALLED  BY:  ANYBODY 

CALLS :  NONE 
******************************************************************** 

double  normalize (angle) 

double  angle; 

{ 

/*  test  for  greater  than  PI  */ 

while (angle  >  PI) 
angle  -=  2  *  PI; 

while (angle  <  -PI) 
angle  +=  2  *  PI; 

return(angle) ; 
} 

FUNCTION:    area(vO,  vl,  v2) 

PARAMETERS:  Vertex  *v0,  *vl,  *v2  the  triangle  vertices 

PURPOSE:    calculate  the  area  of  the  triangle  defined  by  the  3  line 

segments:  vO  -  vl,  vl  -  v2,  and  v2  -  vO 
RETURNS :    double 
CALLED  BY:   update_node_costs()  vpath.c> 

get_new_area()  <path.c> 
ANYBODY 
CALLS:      NONE 
COMMENTS:   area  given  by  A  =  0.5[(xly2-ylx2)-(x0y2-y0x2)+(x0yl-y0xl)] 

this  is  similar  to  order () 
*****************************************************************************/ 

double  area(vO,  vl,  v2) 
Vertex  *v0; 
Vertex  *vl; 
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Vertex  *v2; 
{ 

double  al,  a2,  a3;  /*  the  three  parts  of  the  area  */ 

al  =  (vl->point.x  *  v2->point.y)  -  (vl->point.y  *  v2->point .x) ; 
a2  =  (vO->point .x  *  v2->point.y)  -  (vO->point.y  *  v2->point .x) ; 
a3  =  (vO->point.x  *  vl->point.y)  -  (vO->point.y  *  vl->point .x) ; 

return (0.5  *  (al  -  a2  +  a3)); 

} 

/***************************************************************************** 

FUNCTION:    fatal  0 

PARAMETERS:  char  *message 

PURPOSE:    on  fatal  error  print  message  then  print  system  message  then  exit 

CALLED  BY:   create_world()  <world.c> 

create_polygon()  <world.c> 

add_vertex_to_polygon()  <world.c> 

create_isolated_vertex ()  <world . c> 

create_vertex_pair()  <world.c> 

create_line_segment()  <world.c> 

create_node_list()  <path.c> 

create_st art _or_goal_node ( )  <path . c> 

add_node_to_node_list()  <path.c> 

add_world_to_node_list ()  <path . c> 

create_display_list ()  <display . c> 

add_vertex_pair_to_display_list()  <display .c> 

ANYBODY 

CALLS :      NONE 
********************************************************************** 

void  fatal (message) 
char  *message; 
{ 

fprintf (stderr,  "Fatal  error  occured:  "); 

perror (message) ; 

exit (FAILURE); 
} 


/********************************************************************/ 
/*  FUNCTION:  OpenFileO  */ 
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/*  */ 

/*  Purpose:   This  function  opens  the  output  file.  */ 

void  OpenFile(f ileO,  name,  type,  title) 
FILE  **fileO; 
char  *name; 
char  *type; 
char  *title; 

{ 

*fileO  =  f open (name, type) ; 
return; 

} 


/*                  FUNCTION:  PrintFileO  */ 

/*  */ 

/*  Purpose:   This  function  print  the  result  to  the  file.  */ 

void  PrintFile(filel,  q) 
FILE  *filel; 
CONFIGURATION  q; 
{ 

fprintf  (filel,"7,f  %f\n",  q. point. x,  q. point. y); 

return; 
} 


void  push(temp_stack,pos, angle) 

Point  pos; 

double  angle; 

Stack  **temp_stack; 

{ 

Stack  *new_stack_node; 

if ((new_stack_node  =  (Stack  *)malloc(sizeof (Stack)))  ==  NULL)  { 
fatal ("push:  malloc\n"); 
exit (FAILURE); 

} 
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new_stack_node->point  =  pos; 
new_stack_node->angle  =  angle ; 

if  (*temp_stack  ==  NULL) 
{ 
printf ("including  f irst\n") ; 

new_stack_node->previous  =  new_stack_node; 
new_stack_node->next  =  new_stack_node; 
} 
else 
{ 

new_stack_node->previous  =  (*temp_stack)->previous; 
(*temp_stack)->previous->next  =  new_stack_node; 
(*temp_stack)->previous  =  new_stack_node ; 
new_stack_node->next  =  *temp_stack; 
} 
printf  ("Pushing  '/.If  °/,lf  \n"  ,  pos  .x,pos  .y)  ; 
*temp_stack  =  new_stack_node; 

return ; 
} 

void  pop(temp_stack,temp_point ,temp_angle) 
Stack  **temp_stack; 
Point  *temp_point ; 
double  *temp_angle ; 

{ 

Stack  *temp_stk; 

temp_stk  =  NULL; 

if  (*temp_stack  ==  NULL)  {return;} 

if  ((*temp_stack)->previous  !=  (*temp_stack)->previous->next) 

{ 

temp_stk  =  (*temp_stack)->next ; 

(*temp_stack)->next->previous  =  (*temp_stack)->previous; 
(*temp_stack)->previous->next  =  (*temp_stack)->next ; 

*temp_angle  =  (*temp_stack)->angle; 
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*temp_point   =    (*temp_stack)->point ; 

printf    ("Popping  °/0lf  °/,lf\n",   temp_point->x,temp_point->y) ; 
free(*temp_stack) ; 
*temp_stack  =  temp_stk; 

> 
else  { 

*temp_angle  =  (*temp_stack)->angle; 
*temp_point  =  (*temp_stack)->point ; 

printf  ("Popping  LASTTTT  °/„lf  7,lf\n",  temp_point->x,temp_point->y) ; 
free(*temp_stack) ; 
*temp_stack  =  temp_stk;} 
return ; 
> 

Stack  *Find_Visibility(pl,pos) 
Polygon  *pl; 
Point  pos; 


{ 

Vertex  *f irst .vertex , *current .vertex ; 

double  current_angle , last_angle , dif f _angle , curr_dist , prev_dist , ang_max_lef t ,  ang 

Stack  *stack_pointer; 

Point  prevl,prev2,  pop_point; 

int  type,  count,  repeat,  type_curve_left ,  type_curve_right ,  second_pass,  type_c 


first_vertex  =  current .vertex  =  pl->f irst_vertex; 

stack_pointer  =  NULL; 

count  =  0; 

repeat  =  FALSE; 

type  =  0; 

second_pass  =  FALSE; 

type_curve_left  =  type_curve_right  =  type_curve_down  =  FALSE; 

last_angle  =  atan2(current_vertex->point .y-pos.y, 

current_vertex->point .x-pos .x) ; 
do  • 

{ 
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current _angle  =  atan2 (current_vertex->point . y-pos . y , 
current _vertex->point . x-pos . x) ; 

diff_angle  =  normalize (current_angle  -  last_angle) ; 

if  (diff .angle  <  0.0  II  stack_pointer  ==  NULL) 


push(&stack_pointer, current _vertex->point ,current_angle) ; 
count++; 

last_angle  =  current_angle; 

} 

else 

{ 

if  (stack_pointer  ==  NULL) 

{ 

printfC'I'm  leavingW); 

return  stack_pointer; 
} 
else 
{ 

prevl  =  stack_pointer->point ; 

prev2  =  stack_pointer->next->point ; 

typel  =  order (prev2, prevl, current_vertex->point) ; 


type  =  order (current _vertex->previous->point, 
current_vertex->point , current _vertex->next->point) ; 

prev_dist  =  pow (prevl .y-pos. y, 2.0)  +  pow(prevl .x-pos .x, 2.0) ; 
curr_dist  =  pow(current_vertex->point .y-pos. y, 2.0)  + 
pow ( current _vertex->point .x-pos .x, 2.0) ; 

if  (curr_dist  <=  prev_dist  &&  type  ==  CCW  ) 

{ 

printf  ("Eliminating  CW  V.lf  7,lf  8/,lf  °/.lf\n" , prevl  .x, prevl  .y, 
curr_dist ,prev_dist) ; 
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pop (&stack_pointer , &pop_point , &last_angle) ; 
printf  ("Popped  point  '/.If  0/,lf\n",  pop_point.x, 
pop_point .y) ; 

if  (stack_pointer  !=  NULL) 
{ 

last_angle  =  stack_pointer->angle; 
> 
count — ; 
repeat  =  TRUE; 
} 

else 
{ 

printf  ("Eliminating  CCW  °/.lf  °/.lf\n", 
current_vertex->point . x , 
current _vertex->point .y) ; 
} 

} 
> 

if  (repeat  ==  FALSE) 
current_vertex  =  current_vertex->next ; 

else 
repeat  =  FALSE; 

if  ((current .vertex  ==  f irst_vertex)&&(second_pass  ==  FALSE)) 
{ 

second_pass  =  TRUE; 

first_vertex  =  current _vertex->next ; 

current_vertex->point  =  stack_pointer->previous->point ; 

printf  ("last  '/.If  °/,lf  °/,lf  '/.If  c/,lf\n",  current _vertex->point  .x, 

current _vertex->point . y , current_angle , last_angle , dif f _angle)  ; 


}  while (current .vertex  !=  f irst_vertex) ; 
return  stack_pointer ; 


} 


void  Get_Cam_Pos (Point  *pos) 
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printf  ("\nEnter  Camera's  X  position  : ")  ;scanf  ("7„lf "  ,&pos->x)  ; 

printf  (M\nEnter  Camera's  Y  position  :  ")  ;scanf  ("7,lf  "  ,&pos->y)  ; 
return; 

} 
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APPENDIX  I.  C  CODE  FOR  CONTROLLING 

"YAMABICO" 
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/***************************************************************************** 


Function 

Purpose 

Parameters 

Returns 

Comments 


userO 


void 
void 

Kanayama  and  Jader  Filho  04/25/97 
************************************************************** 

#include  "user.h" 
#include  "seqcmd.h" 
#include  "math.h" 


void 
void 
void 
void 
void 
void 
void 
void 
void 
void 
void 
void 
void 
void 
void 
void 


userlOO 

userllO 

userl2() 

userl3() 

userl4() 

userl9() 

user20() 

user21() 

user22() 

user23() 

user24() 

user25() 

user26() 

user30() 

userlOOO  ; 

userlOK) ; 


int  OnTrack (CONFIGURATION  path) 
{ 

double  lambda  =  20.0; 

CONFIGURATION  robot 1; 

double  kk; 

double  k,  kk2; 

LINE  pathElement ; 

double  sigma  =  sigmaValueO  ; 


pathElement . conf ig 
kk  =  path. Kappa  ; 
kk2  =  kk  *  kk; 


path; 
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k  =  1 .0/sigma  ; 

pathElement . a  =  3.0*k  ; 

pathElement . b  =  3.0*k*k  -  kk2  ; 

pathElement . c  =  k*k*k  -  3.0*k*kk2  ; 

robotl  =  getRobotConf ig() ; 

lambda  =  fabs (pathElement .a  *  robotl .Kappa) 

+  f abs (pathElement .b  * 
norm (robot 1 .Theta  -  pathElement .conf ig.Theta)) 
+  fabs (pathElement . c  * 
(-(robotl .Posit .X  -  pathElement .conf ig. Posit .X) 

*  s in (pathElement . conf ig.Theta) 

+  (robotl .Posit .Y  -  pathElement . conf ig. Posit .Y) 

*  cos (pathElement .conf ig.Theta))) ; 
/♦if  ((int)lambda°/,2  ==  0) 

printf  ("\n°/.f ".lambda)  ;*/ 
if  (lambda  >  0.0) 

return  FALSE; 
else-C 

/*    printf  ("\n'/,f",  lambda);*/ 

return  TRUE;} 


void  userO 
{ 

int  selection; 

printf ("\n  Continuous  Curvature  Motion  Control:  Version  4"); 

printf ("\n  Enter  10  for  Square");  /*  for  lines    */ 

printf ("\n  Enter  11  for  Star"); 

printf ("\n  Enter  12  for  Neg  Star"); 

printf ("\n  Enter  13  for  Maze"); 

printf ("\n  Enter  19  for  Polygon  Tracking"); 

printf ("\n  Enter  20  for  CCW  circle  100cm.");       /*  for  circles  */ 

printf ("\n  Enter  21  for  Tracking  a  circle  form  outside"); 

printf ("\n  Enter  22  for  Two  circles"); 

printf ("\n  Enter  23  for  Circle  Train"); 

printf ("\n  Enter  24  for  Slalom"); 

printf ("\n  Enter  25  for  Obstacle  avoidance  #1"); 
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printf ("\n  Enter  26  for  Obstacle  avoidance  #2"); 

printf("\n  Enter  30  for  Track_Stop") ;  /*  others  */ 

printf ("\n  Enter  100  for  Sonar  Range  Displaying");  /*  others  */ 

printf ("\n  Enter  101  for  Random  Walk  by  Sonar");  /*  others  */ 
printf ("\n\n  The  choice  is  :  "); 

selection  =  GetlntO; 
switch  (selection) 
{ 
case  10: 

userlOO  ; 

break; 
case  11: 

userllO  ; 

break; 
case  12: 

userl2() ; 

break; 
case  13: 

userl3() ; 

break ; 
case  19: 

userl9() ; 

break; 
case  20: 

user20(); 

break; 
case  21: 

user21() ; 

break; 
case  22: 

user22() ; 

break; 
case  23: 

user23() ; 

break ; 
case  24: 

user24() ; 

break; 
case  25: 

user25() ; 
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break; 
case  26: 

user26() ; 

break; 
case  30: 

user30() ; 

break; 
case  100: 

userlOOO  ; 

break; 
case  101: 

userlOK) ; 

break; 
default : 

break; 
} 


/***************************************************************************** 


userlOK) 

Making  random  walk  behavior,  which  turns  left  135  degrees 

void 

void 


Function 
Purpose 
Parameters 
Returns 
Comments 
************************************************* 

void  userlOK) 
{ 

int  dist,  distL,  distR; 

CONFIGURATION  path,  left,  right,  current; 

double  sigma  =  6.0; 

path  =  defineConfig(0.0,  0.0,  0.0,  0.0); 

left  =  defineConfig(80.0,  0.0, +1 .5*HPI,  0.0); 

right  =defineConfig(80.0,  0.0,-1 .5*HPI,  0.0); 

EnableSonar(SOOO) ; 

EnableSonar(S030) ; 

EnableSonar(S330) ; 

setLinVelImm(20.0) ; 

setSigmaImm( sigma) ; 

setRobotConf iglmm(path) ; 

track (path) ; 
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while  (1) 
{ 

waitMS(200); 

dist  =  Sonar (SOOO) ; 

distR  =  Sonar (S030) ; 

distL  =  Sonar(S330) ; 

if  (dist  <  150  &&  dist  >  1) 
{ 

printf("\n  distance=  °/.d  ",  dist); 
DisableSonar Interrupts () ; 
current  =  getRobotConf ig() ; 
current . Kappa  =  0.0; 
if  (distL  >  distR) 

path  =  compose (fecurrent ,  feleft) ; 
else 

path  =  compose (fecurrent ,  feright) ; 
track (path) ; 

printf("\n  turn  °/.4.2f",  path.Theta*r2d) ; 
waitSec(8) ; 

/♦while (OnTrack (path)  ==  FALSE);*/ 
EnableSonarlnterruptsO ; 
/*   dist  =  Sonar (SOOO) ; 
waitMS(60) ;*/ 
}else 

if  (distL  <  150  &&  distL  >  1) 
{ 

printf("\n  distanceL=  7,d  ",  distL); 

DisableSonarlnterruptsO  ; 

current  =  getRobotConf ig() ; 

current . Kappa  =  0.0; 

path  =  compose (fecurrent ,  feright); 

track (path) ; 

printf("\n  turn  0/,4.2f",  path.Theta*r2d) ; 

waitSec(8) ; 

/*  while (OnTrack (path)  ==  FALSE);*/ 

EnableSonarlnterruptsO  ; 

/*      distL  =  Sonar (S330); 

waitMS(60) ;*/ 
}else 

if  (distR  <  150  &&  distR  >  1) 
{ 

printf("\n  distanceR=  %d  ",  distR); 
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DisableSonarlnterruptsO ; 

current   =  getRobotConf ig() ; 

current . Kappa  =  0.0; 

path  =  compose (fecurrent,    feleft) ; 

track (path) ; 

printf("\n  turn  7,4. 2f",  path.Theta*r2d) ; 

waitSec(8) ; 

/♦while (OnTrack (path)  ==  FALSE);*/ 

EnableSonar Interrupts () ; 

/*   distR  =  Sonar (S030); 

waitMS(60) ;*/ 

} 
DisableSonar(SOOO) ; 
DisableSonar(S030) ; 
DisableSonar(S330) ; 
return; 


void 

userlO(void)       /*  Square  */ 

{ 

CONFIGURATION  init,  line,  turn; 

double  size  =  100,  sigma  =  10; 

int  i; 

printf ("\nlnput  desired  size  (cm):  "); 

size  =  GetRealO  ; 

printf ("\nlnput  desired  smoothness  (cm):  "); 

sigma  =  GetRealO; 

/*  setSigmalmm(size) ; 

setSigmaImm(0.05*size) ;*/ 

setSigmalmm(sigma) ; 

init  =  defineConfig(-0.5*size,  0.0,  0.0,  0.0); 

line  =  defineConfig(  0.0,  0.0,  0.0,  0.0); 

turn  =  defineConfig(  size,  0.0,  HPI,  0.0); 

setRobotConf iglmm(init) ; 

for  (i  =  0;  i  <=  4;  i++) 
{ 

track(line) ; 

line  =  compose (feline,  feturn) ; 
} 

line  =  defineConfig(  1.5*size,  0.0,  0.0,  0.0); 
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trackS(line) ; 
return; 

} 

void 

user 11 (void) 

{ 

CONFIGURATION  init,  lineO,  linel; 

int  i; 

double  sigma,  linelength; 

printf ("\nlnput  desired  smoothness  (cm),  eg.  7:  ") ; 
/*  A  typical  value  for  sigma  is  7.0  */ 
sigma  =  GetRealO; 

setSigmalmm(sigma) ; 

printf ("\nlnput  desired  length  (cm),  eg.  300:  "); 
/*  A  typical  value  for  linelength  is  300.0  */ 
linelength  =  GetRealO; 

init  =  defineConfig(linelength/2,  0.0,  0.0,  0.0); 

lineO  =  defineConfig(0.0,  0.0,  0.0,  0.0); 

linel  =  defineConfigdinelength,  0.0,  4.0*PI/5.0,  0.0); 

setRobotConf iglmm(init) ; 


for  (i=0;  i  <=  4;  i++) 
{ 

track (lineO) ; 

printf("\n  lineO.x  =  °/,f,  lineO.y  =  °/„f,  lineO.t  =  °/.f,  lineO.k  =  7.f",  lineO 
lineO  =  compose (felineO,  felinel) ; 
} 
tracks (init) ; 
return; 


} 


void 

user 12 (void)/*  Neg_Star*/ 

{ 
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CONFIGURATION  init,  lineO,  linel; 

int  i; 

double  sigma,  linelength; 

printf ("\nlnput  desired  smoothness  (cm),  eg.  7:  ") ; 
/*  A  typical  value  for  sigma  is  7.0  */ 
sigma  =  GetRealO; 

setSigmalmm(sigma) ; 

printf ("\nlnput  desired  length  (cm),  eg.  300:  "); 
/*  A  typical  value  for  linelength  is  300.0  */ 
linelength  =  GetRealO; 

init  =  defineConfig(linelength/2,  0.0,  0.0,  0.0); 

lineO  =  defineConfig(0.0,  0.0,  0.0,  0.0); 

linel  =  defineConfig (linelength,  0.0,  -4.0*PI/5.0,  0.0); 

setRobotConf iglmm(init) ; 

for  (i=0;  i  <=  4;  i++) 
{ 

track(lineO) ; 

printf ("\n  lineO.x  =  °/.f,  lineO.y  =  °/,f,  lineO.t  =  7,f,  lineO.k  =  °/.f",  lineO.P< 
lineO  =  compose (felineO,  felinel)  ; 
} 
tracks (init) ; 
return; 


void 

userl3(void)   /*  Maze   */ 

{ 

CONFIGURATION  init,  lineO,  linel,  line2,  line3,  line4,  line5,  line6,  line7; 

double  sigma; 

printf ("\nlnput  desired  smoothness  (cm):  ") ; 
sigma  =  GetRealO; 
setSigmalmm(sigma) ; 
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init  =  defineConfig (0.0,  -50.0,  0.0,  0.0); 
lineO  =  def ineConf ig(0.0,  -50.0,  0.0,  0.0); 
linel  =  defineConfig (205.0,  -50.0,  HPI ,  0.0); 
line2  =  defineConfig (205.0,  306.0,  0.0,  0.0); 
line3  =  def ineConf ig(399.0,  306.0,  -HPI,  0.0); 
line4  =  def ineConf ig(399.0,  -50.0,  PI,  0.0); 
line5  =  def ineConf ig(205.0,  306.0,  PI,  0.0); 
line6  =  def ineConf ig (-50.0,  306.0,  -HPI,  0.0); 
line7  =  def ineConf ig(  50.0,  -50.0,  0.0,  0.0); 

setRobotConf iglmm(init) ; 

track (lineO) 

track (linel) 

track(line2) 

track(line3) 

track (line4) 

track(linel) 

track(line5) 

track (line6) 

tracks (line7) ; 
return ; 
} 

void 

user 19 (void)   /*  polygon  tracking   */ 

{ 

CONFIGURATION  init,  lineO,  linel,  line2; 

int  i; 

double  sigma; 

printf ("\nlnput  desired  smoothness  (cm):  "); 
sigma  =  GetReaK); 
setSigmalmm(sigma) ; 

init  =  lineO  =  def ineConf ig(0.0,  0.0,  0.0,  0.0); 

linel  =  def ineConf ig(200.0,  0.0,  HPI,  0.0); 

line2  =  def ineConf ig(200.0,  0.0,  0.0,  0.0); 
setRobotConf iglmm( init) ; 

for  (i=0;  i  <=  3;  i++) 
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{ 

track (lineO) ; 

lineO  =  compose (felineO,  felinel) ; 
} 
tracks (line2) ; 
return ; 
} 

void 

user20(void)   /*  CCW  circle   */ 

{ 

CONFIGURATION  init,  circleO; 

double  sigma; 

printf ("\nlnput  desired  smoothness  (cm):  "); 

sigma  =  GetRealO; 

setSigmalmm(sigma) ; 

init  =  defineConfigCO.O,  0.0,  0.0,  0.01); 

circleO  =  def ineConf ig(-100.0,  100.0,  -HPI,  0.01); 

setRobotConf iglmm(init) ; 

trackS(circleO) ; 

printf  ("\nVelocity  is  °/.f ' ,  Velocity-Linear  ())  ; 
return ; 
} 

void 

user21(void)    /*  CCW  circle  from  outside   */ 

{ 

CONFIGURATION  init,  circleO; 

double  sigma; 

printf ("\nlnput  desired  smoothness  (cm):  "); 
sigma  =  GetRealO; 

setSigmalmm(sigma) ; 

init  =  defineConfig(0.0,  0.0,  0.0,  0.0); 
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circleO  =  def ineConf ig(0.0,  50.0,  0.0,  0.01); 

setRobotConf iglmm(init) ; 

track(circleO) ; 

printf  ("\nVelocity  is  yof",  VelocityLinearO) ; 


return; 
} 

void 

user22(void)   /*  Two  circles   */ 

{ 

CONFIGURATION  init ,  circleO,  circlel; 

double  sigma,  radius; 

printf ("\n Input  desired  smoothness  (cm):  ") ; 
sigma  =  GetReaK); 
setSigmalmm(sigma) ; 

printf ("\nlnput  desired  radius  (cm):  "); 
radius  =  GetReaK); 

/*  circle  to  circle   */ 

init    =  def ineConf ig(-l . l*radius,  radius,   0.0,  -1/radius) ; 

circleO  =  def ineConf ig(-2. l*radius,  0.0,  HPI,  -1.0/radius) ; 

circlel  =  def ineConf ig(  2.1*radius,  0.0,  HPI,   1.0/radius); 

setRobotConf iglmm(init) ; 

track(circleO) ; 

track(circlel) ; 

track(circleO) ; 

track(circlel) ; 

tracks (circleO) ; 

return; 


void 

user23(void)  /*  Circle  Train  */ 

{ 

CONFIGURATION  init,  circleO,  circlel,  next; 
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double  radius; 

int  i; 

int  numcircles  =  1; 

printf ("\nlnput  radius  (cm):  ") ; 
radius  =  GetReaK); 
setSigmaImm(0.4*radius) ; 

init    =  circleO  =  def ineConf ig(0.0,  0.0,   0.0,  1.0/radius); 
circlel  =  def ineConf ig(  2.2*radius,  2.0*radius,  0.0,   -1.0/radius); 
next    =  def ineConf ig(4.4*radius,  0.0,  0.0,  0.0); 

setRobotConf iglmm(init) ; 
for  (i=0;  i  <=  numcircles;  i++) 
{ 

track(circleO) ; 
track(circlel) ; 
if  (i  <  numcircles) 
{ 

circleO  =  compose (fecircleO, fenext) ; 
circlel  =  compose (fecirclel, fenext) ; 
} 

} 

next. Posit. X  =  -next .Posit .X; 
for  (i=0;  i  <=  numcircles-1;  i++) 

{ 

circlel  =  compose (fecirclel, fenext) ; 
track(circleO) ; 
track(circlel) ; 

circleO  =  compose (fecircleO, fenext ) ; 
} 
tracks (circleO) ; 
return ; 
} 

void 

user24(void)  /*  Slalom  */ 

{ 

CONFIGURATION  init,  circleO,  circlel,  next; 

double  radius; 
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printf ("\nlnput  radius  (cm):  ") ; 
radius  =  GetReaK); 
setSigmaImm(0.4*radius) ; 

next  =  def ineConf ig(4.4*radius,  0.0,  0.0,  0.0); 

init  =  defineConfig (-radius,  radius,  -HPI,  1.0/radius); 

circleO  =  def ineConf ig(  0.0,  0.0,  0.0,  1.0/radius); 
circlel  =  def ineConf ig(  2.2*radius,  radius,  0.0,  -1.0/radius); 
track(circleO) ; 
track(circlel)  ; 

circleO  =  compose (fecircleO,  &next) ; 
circlel  =  compose (fecirclel ,  fenext) ; 
track(circleO) ; 
trackS(circlel) ; 
return; 
} 


void 

user25(void)  /*  Obstacle  avoidance  #1  */ 

{ 

CONFIGURATION  init,  line,  circle; 
double  size; 

printf ("\nlnput  radius  (cm):  ") ; 
size  =  GetReaK) ; 
setSigmaImm(0. 15*size) ; 
/*setLinVelImm(20 . 0) ; */ 

init  =  def ineConf ig(-2.0*size,  0.0,  0.0,  0.0); 
line   =   def ineConf ig(  2.0*size,  0.0,  0.0,  0.0); 
circle  =   def ineConf ig(  0.0,  -0.5*size,  0.0,  2.0/size); 
setRobotConf iglmm(init) ; 
track(line) ; 
track(circle) ; 
tracks (line) ; 
return; 
} 

void 
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user26(void)  /*  Obstacle  avoidance  #2  */ 

{ 

CONFIGURATION  init,  line,  circle; 
double  size; 

printf ("\nlnput  radius  (cm):  "); 
size  =  GetRealO  ; 
setSigmaImm(0 . 15*size) ; 
/*setLinVelImm(20 . 0) ; */ 

init  =  defineConfig(-2.5*size,  0.0,  0.0,  0.0); 
line   =   defineConfig(  2.5*size,  0.0,  0.0,  0.0); 
circle  =   def ineConf ig(  0.0,  -0.5*size,  0.0,  0.8/size); 
setRobotConf iglmm(init) ; 
track(line) ; 
track(circle) ; 
tracks (line) ; 
return ; 
> 

void 
user30(void) 

{ 

CONFIGURATION  init,  lineO; 
double  sigma; 

printf ("\nlnput  desired  smoothness  (cm):  "); 
sigma  =  GetRealO; 

setSigmalmm (sigma) ; 

init  =  defineConfig(0.0,  0.0,  0.0,  0.0); 

lineO  =  defineConfig(200.0,  200.0,  HPI ,  0.0); 

setRobotConf iglmm(init) ; 

track(init) ; 

tracks (lineO) ; 
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userlOOO 

Displaying  the  distance  obtained  by  the  specified  sonar 

void 

void 


return ; 

} 


Function 

Purpose 

Parameters 

Returns 

Comments 

void  userlOOO 
{ 

int  i,  sonar; 

double  distance; 

while(l) 
{ 

printf ("\nlnput  sonar  number  "); 
sonar  =  Get Int 0 ; 
EnableSonar (sonar) ; 
for  (i=0;  i  <300;  i++) 

{ 

distance  =  Sonar (sonar) ; 

printf ("\nsonar  7,d  distance=  °/0f",  sonar,  distance); 

waitMS(200) ; 

} 

DisableSonar (sonar) ; 

} 

> 
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APPENDIX  J.  IMPLEMENTATION  DETAILS 
OF  THE  WAVELET  RECOGNITION  SYSTEM 
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The  system  code  is  split  into  four  components:  Training  Data  Processing, 
Neural  Network  Training  Program,  Template  Scanning  Program  and  Neural  Network 
Processing  Program. 

The  filename  for  the  x-th  sample  of  Object  y's  z-th  Aspect  at  angle  w°  will 
be:  OyAzSxAw. 

a.       The  Training  Data  Processing  Program 

The  "Training  Data  Processing"  component  was  implemented  in  C  using  the 
Matrox  Imaging  Library  (MIL)  library.  It  performs  the  process  of  reading  in  images 
representing  a  single  aspect  view  of  an  object  in  the  training  database.  The  filenames 
of  all  of  the  training  data  is  stored  in  a  text  file  and  is  the  input  to  this  program.  The 
output  will  be  a  list  of  feature  vectors  corresponding  to  the  interest  points  detected 
from  analyzing  this  training  data  and  it  will  be  stored  in  a  lisp  format  in  a  file  called 
trainingW.lisp. 

1.  Read  in  each  training  data  file. 

2.  A  program  is  run  first  to  produce  the  rotated  images  at  the  size  of  512  x  512. 

3.  Transform  each  aspect  &  angle  image  into  the  wavelet  domain. 

4.  At  level  3  in  the  wavelet  domain,  detect  10  maximum  interest  points  and  a 
extract  feature  vector  at  each  point.  This  information  is  stored  in  the  output 
data  file  called  trainingW.lisp.  Note  that  after  each  set  of  10  feature  vectors  is 
the  identity  of  the  Object,  Aspect  and  Angle  classification  information  that  is 
needed  for  training. 

Bellow,  a  line  of  the  file  trainingW.lisp  is  shown,  containing  50  numbers  corre- 
sponding to  10  "interest  points"  and  their  corresponding  feature  vectors. 

(defun  train  ()  (main  ' ( 

; ;Highest_10,  level  3,  angle  0,  figure  oclaOsO 
(-17.3000000000000010  -0.6000000000000014  7.7632945599100394 
2.7437772789534214  4.8747857976737450  -13.3000000000000010 
-0.6000000000000014  2.5363105602360059  1.2928668687180431 
1.0453621792006709  -9.3000000000000007  2.3999999999999986 
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5.2280813107026365  2.0669463280241538  3.4806936563737985 
-3.3000000000000007  0.3999999999999986  2.2464198449293558 
0.9445203636985574  0.4874465769380103  -0.3000000000000007 
-1.6000000000000014  4.0285701151032116  1.3352789363678150 
1.5187340233943245  -0.3000000000000007  1.3999999999999986 
5.7299473651630040  2.2450398225978780  2.2525097190972367 
4.6999999999999993  -1.6000000000000014  4.5659324623233797 
1.6921700892013563  3.0386321169197239  8.6999999999999993 
-0.6000000000000014  2.7725534538730385  1.2018148095196759 
0.6511144002147382  12.6999999999999990  -0.6000000000000014 
10.0000000000000000  3.8939970723089417  13.9707736082173390 
17.6999999999999990  1.3999999999999986  4.4644618455921687 
1.4596795254323072  1.5890083670703876  )  (... 

b.  The  Neural  Network  Training  Program 

The  Neural  Network  Training  Program  as  well  as  the  Scanning  Program  are 
implemented  in  Allegro  Common  Lisp  4.2  on  an  SGI  machine.  It  takes  as  input  the 
output  file  generated  by  the  Training  Data  Processing  Program.  This  data  lists  sets 
of  feature  vectors  and  their  corresponding  Object,  Aspect  and  Angle  classification. 
The  output  of  the  Program  is  the  set  of  NN  weights  learned. 

c.  The  Template  Scanning  Program 

This  program  is  implemented  in  C  using  the  MIL  library  on  a  PC.  The  input 
to  this  program  is  a  512  x  512  image  of  the  scene  under  consideration.  This  program 
converts  the  image  to  the  wavelet  domain  and  at  level  3,  performs  template  scanning. 
At  each  template,  the  top  ten  interest  points  are  detected  and  a  feature  vector  for 
each  is  calculated.  The  ten  feature  vectors  for  each  template  is  stored  in  a  file  called 
oyazsxlS.lisp  which  is  used  as  input  to  the  next  stage  of  recognition,  the  Neural 
Network  Processor.  Note  that  the  sets  of  feature  vectors  for  each  template  of  the 
scene  image  is  stored  in  this  file.  They  are  store  in  the  same  format  shown  for 
trainingW.lisp. 
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d.       The  Neural  Network  Processing  Program 

The  feature  vectors  belonging  to  each  template  are  processed  in  succession. 
In  the  multiple  NN  case,  output  from  each  network  is  then  passed  to  another  lisp 
routine,  that  implements  the  voting  procedure.  The  output  from  each  template  is 
collected  into  a  single  output  file  called  recon.txt.  Below  is  an  example  output  file. 
Note  that  the  Location  is  detected  as  the  center  of  the  template  and  that  the  Error 
provided  by  the  NN  is  an  inverse  measure  of  confidence  in  the  detection  of  this  object. 

The  example  below  shows  a  typical  output  of  the  recognition  lisp  program. 
The  first  line  explains  the  output  as  follows. 

•  Ai  is  the  number  of  consecutive  windows  with  equal  or  close  errors  (within 
1(T8). 

•  Ei  is  the  error. 

•  Level  is  the  level  of  the  wavelet  decomposition. 

•  Column  is  the  horizontal  coordinate  of  the  upper-left  corner  of  the  window 
found. 

•  Row  is  the  vertical  coordinate  of  the  upper-left  corner  of  the  window  found. 

•  Width  is  the  horizontal  dimension  of  the  window. 

•  Height  is  the  vertical  dimension  of  the  window. 

•  Classification  is  the  class  of  the  object  according  with  previous  convention. 

Ai       Ei  level       column         row  width  height  classification 

((1  9.398273e-4  (level  3  i_col   10  i_row  8     h_size  36  v.size  28)  oclaOsOaO) 

(2  0.00662132  (level  3  i_col  4     i_row  6     h_size  34  v_size  27)  oclaOsOaO) 

(3  0.019059485  (level  3  i_col  6     i_row  6     h_size  36  v_size  28)  oc3a0s0a0) 

(4  0.05333662  (level  3  i_col  26  i_row  28  h_size  38  v_size   16)  oc3a0s0a0) 

(5  8.102191e-4  (level  3  i_col  4     i_row  0     h_size  45  v_size  36)  oclaOsOaO) 

(6  8.102191e-4  (level  3  i_col  0     i_row  26  h_size  64  v_size   16)  oclaOsOaO) 
(7) 

(8  0.05333662    (level  3     i_col  24  i_row  28  h_size  38  v_size   16)  oc3a0s0a0)) 
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